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Neu für TI-99/4A Peripherie Software 


CPS 99 Mini Memory 

mit 1 Laufwerk DS DD 1.698,- Edit bi 
(360 KB), Disk-Steuerkarte, EEE ERRENN 
32 K-RAM, RS-232 und Multiplan 
Centronics TI-Writer 
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ANDREAS EHLERDING TECHNOLOGIE 
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Er steht für Forschung und Innovation an der Nahtstelle von Psychologie, Medizin und Informatik. Trotz 

finanzieller Engpässe konnten wir bei unseren Computern von vornherein nicht auf kompromißlose Zuver- 

lässigkeit und höchste Flexibilität verzichten. So fiel die Wahl auf den TI99/4A. Sehen konnte der TI bisher 
noch nicht, doch dank unserem 


VIDEO DIGITIZER AET-VD99 


Ist dieses Handicap nun beseitigt. 


DER — IN Br SPIEGEL 


TI 99/4A mit angeschlossenem Video Digitizer AET-VD99. Verkleinerter Bildausschnitt. 64x48 Punkte, 
16 Farb- bzw. Graustufen mit spezieller Software in druckbare 2-Farben-Darstellung umgewandelt 


WANN WIRD IHN IHR TI TUN? 
64000 Bildpunkte - 64 Grauwertstufen - belegt keinen Sneicherplate INTI - 64 K eigenes RAM, auch als 
Erweiterung:nutzbar - 32 K CMOS RAM (auf Wunsch zusätzlich integriert) - Incl. Bildverarbeitungs-Soft- 
ware - Darstellung der digitalisierten Bilder auf dem Bildschirm 256 x 192 Punkte - Objekterkennung (Lernen 
durch Zeigen) - Grauwerthistogramm - Kantendetektion - Ausschnittvergrößerung eines beliebigen 64x48 
Punktebereiches in 16 Farbwerten . Schnittstellen zu verschiedenen Zeichenprogrammen . Hardcopyroutine 
für Epson FX80/RX80. 
1498,-- DM incl. MWSt. 
ANDREAS EHLERDING TECHNOLOGIE 
BERATUNG ENTWICKLUNG FERTIGUNG SERVICE 
Kreisstraße 31 - D-3065 Nienstädt. - Tel. 05721/77 268 
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TIPS & TRICKS 


DER DEBUGGER 
UND SEINE 
MÖGLICHKEITEN 


Aufgrund der Tatsache, 
daß die Zahl der Editor/ 
Assembler-Besitzer lau- 
fend steigt und somit eben- 
falls (hoffentlich) der 
Assembler Programmierer, 
habe ich mich entschlos- 
sen, Teile des Debuggers 
näher zu erläutern. 

Nach genauem Studium, 
sowohl der englischen als 
auch der deutschen Be- 
schreibung,. zeigten sich 
einige Mängel, die ich hier- 
mit beheben möchte. Der 
erste Befehl auf den ich 
näher eingehen möchte, 
gestattet das Auslesen des 
Assemblermoduls, sowie 
das Inspizieren sämtlicher 
Grom-Module. 

Mit dem Kommando 

M G6000,7800 zeigt sich 
der Inhalt des E/A-Moduls 
das nach dem Laden des 
Debuggers auch aus dem 
Gromport entfernt werden 
kann. Jetzt könnte z.B. 
das Statistik-Modul ins 
Port gesteckt und ausgele- 
sen werden, wenn nicht 
beim Einschub eines Mo- 
duls ein Resetimpuls auf- 
treten würde. 

Dieser Reset kann auf ein- 
fache Weise bei Modulen, 
die nur mit Groms 
(Graphic Read Only Me- - 
mory) bestückt sind, außer 
Kraft gesetzt werden. Die 
nachfolgende Liste führt 
einige dieser Module auf: 
Ti-Writer 

Text- und Dateiverwaltung 
Editor/Assembler 
Datenverwaltung und 
Analyse 

Statistic 

Multiplan 
Buchungsjournal 

Wumpus 

Speech-Editor 

Amazing 

Adventure usw. 


Sollten Sie im Zweifel dar- 
über sein, ob Ihr Modul 
ein reines Grom-Modul ist, 
genügt das Öffnen des 
Gehäuses. 

Treten dabei nur ICs zuta- 
ge mit maximal 16 An- 
schlüssen, so besteht kein 
Zweifel, daß es sich um ein 


” 


nur mit Groms bestücktes 
Modul handelt. Zum Aus- 
lesen des Moduls genügt 
das Überkleben des Pins 1 
mit einem Stück Tesafilm. 
Dieser Pin befindet sich, 
wenn Sie Ihr Modul von 
vorne betrachten (Stecker- 
seite, die in den Grom- 
schlitz gesteckt wird), 
rechts unten. Nach dieser 
Behandlung können Sie 
Ihr Modul jetzt in das 
Grom-Port stecken und 
auslesen. 


MODIFIKATION OHNE 
EINGRIFFE 


Diese Modifikation kann 
ohne irgendwelche Ein- 
griffe ins Modul auch von 
a durchgeführt wer- 


Die nachfolgende Tabelle 
zeigt die gültigen Adreß- 
bereiche der Groms: 


M G6000,7800 Grom 1 
M G8000,9800 Grom 2 
M GA000,B800 Grom 3 
M GC000,D800 Grom 4 
M GE000,F800 Grom 5 


Noch ein Tip zum Aus- 
lesen. 
Leider hat sich gezeigt, daß 
manchmal trotz ‚Spezial- 
behandlung“ ein Reset 
auftritt. Dieser Fehler kann 
durch folgende Punkte 
weitgehend eingedämmt 
werden. 

1. Start des Debuggers 
2. Befehl M 0,FFFF 
3. Entfernen des E/A- 
Moduls 
4. Einstecken des auszule- 

senden Moduls 

5. Anhalten-der Auflistung 
mit FCTNX 
6. Auslesen laut obiger 
Tabelle 
7. Bei Absturz Neu 

beginn mit Punkt 1 


DSR AUSLESEN 


Der zweite Befehl, auf den 
ich näher eingehen möch- 
te, bezieht sich auf das 
Auslesen der Peripherie- 
Roms (DSR). 

Die meisten Karten, u.a. 
P-Code, RS232, Controller, 
beinhalten ein Rom mit 
ihrem Betriebssystem. Die- 
se Karten liegen auf fol- 
genden CRU-Adressen. 


1100 Controller 
1300 RS232 I 

1500 RS232 I 

1800 Thermalprinter 
1F00 P-Code 


Der Adreßbereich des DSR- 
Roms befindet sich bei 
4000 — SFFF. Je nach 
Notwendigkeit wird vom 
System eines der Periphe- 
riegeräte zu- oder abge- 
schaltet. Dieses Zuschal- 
ten bei Gebrauch bietet ge- 
gegenüber anderen Com- 
putersystemen den Vorteil, 
daß bei einer Peripherie- 
erweiterung kein Rambe- 
reich verloren geht. 

Wie kann man nun z.B. 

das Betriebssystem der 
RS232 I auslesen? 

Mit dem Kommando 

C 1300,1 <Enter> erfolgt 
die Ausgabe C 1300, XXXX 
die mit einer Eingabe von 

1 <Enter> abgeschlossen 
wird. Nun können Sie das 
Rom im Bereich 4000-— 
SFFF auslesen. 


AUCH FÜR 
MINIMEMORY 


Der Befehl C 1300,1 be- 
wirkt dabei, daß nur ein 
Bit ab der Cru-Adresse 
1300 Hex ausgegeben wer- 
den kann. C 1300,0 würde 
eine 16 Bit breite Ausgabe 
ab 1300 erlauben. 

Bevor Sie nun ein anderes 
Rom auslesen, muß erst 
das Cru-Bit bei 1300 zu- 
rückgesetzt werden. Das 
Rücksetzen erfolgt mit: 


C 1300,1<Enter> 


Ausgabe C 1300,XXXX 
Eingabe 0 <Enter> 


ACHTUNG 





Sollte jemand seine spiele- 
rische Ader mit dem Ein- 
bzw. Ausschalten der 
Peripherie-Leuchtdioden 
befriedigen wollen, so 
kann er dies durch das 
Senden eines Bits auf fol- 
genden Adressen: 


1100 7/1100 Controller 
130E /1300 RS2321 
150E /1500 RS232 II 
1F00 rd P-Code 


Led ein bzw. aus / Bit 
setzen zum Auslesen der 
DSR (DSR=Device Ser- 
vice Routine). 
Aus dieser Tabelle wird 
erkennbar, daß sowohl bei 
der Controller- als auch 
der P-Code-Karte nur ein 
Bit für das Aufleuchten 
der Led und das gleicdh- 
zeitige Auslesen gesetzt 
werden muß. 
Zum Schluß möchte ich 
noch anmerken, daß auch 
Minimemory-Besitzer den 
Debugger starten und so- 
mit verwenden können. 
Eine Kopie von einem 
Freund oder Bekannten 
wird sich bestimmt als 
nützlich erweisen. 

Reiner Ziegler 


UNSER 
2 TELEFONSERVICE & 


Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf 


der Leserbriefseite 
ACHTUNG !!! 
Wie immer steht unseren Lesern unser Telefon- 
Service zur Verfügung! Jeden Dienstag von 15 bis 





19 Uhr. Für technische Fragen: 0731/33 220 und 





für Listings/Programme: 089/129 8013 














Der Wasserplanet ‚Atlan- 
tis‘ wird von einer Flotte 
feindlicher Raumschiffe 
angegriffen. 20 Gegner 
trachten nacheinander, 
den Planeten zu zerstö- 
ren. Sie senken sich im- 
mer weiter hinab, bis sie 
die Verteidigungsbasis er- 
reicht haben. 

Sie, alsjoystickgewapp- 
neter Spieler, müssen ver- 
suchen, dies zu verhin- 
dern. Mit dem Faden- 
kreuz visieren Sie den 
Gegner an und zerstören 
ihn durch Betätigen des 
Feuerknopfes. Zu Beginn 
des Spieles haben Sie tau- 
send Energieeinheiten zur 


Verfügung. Jeder Schuß 
kostet zehn Einheiten. 
Können Sie sich vor den 
Angreifern nicht mehr 
retten und bauen mit der 
SPACE: Taste einen 
Schutzschirm um die Ba- 
sis auf, so müssen Sie da- 
für 100 Energieeinheiten 
opfern. 

Die Invastion ist abge- 
wehrt, wenn keines der 
20 angreifenden Raum- 
schiffe Ihre Basis zerstö- 
ren onnte. Sollte alle 
1000 Energieeinheiten 
vorzeitig verbraucht wer- 
den, ist das Spielvotzei- 
tig beendet. 

Jörg Bublath 


Komplexe Zahlen 


Das Programm bietet fol- 
gende mathematischen 
Operationen mit komple- 
xen Zahlen: Transforma- 
tion von Polar- in karte- 
sische Koordinaten und 
umgekehrt, Addition, 
Subtraktion, Multiplika- 
tion, Division; Bilden von 
Wurzel, Kehrwert und 
Konjungiert kom. Zahl. 





Außerdem besteht die 
Möglichkeit, Zwischener- 
gebnisse zu speichern. 
Die Wahl der jeweilgen 
math. Operationen und 
die Art der Eingabe (z.B. 
in Kart.- oder Polarkoor- 
dinaten) erfolgt durch 
Steuern eines Pfeiles in 
einem Menüfeld. 
Gerhard Hübner 


100 KRRKRRKRKRRRKRKKTKTTTITTTTIHR 


ı 
110 1% * 
120 ! % SPACE -2000 * 
130! % * 
140! %* Copyright by * 
150! % * 
160 !' * Joerg Bublath * 
1701% * 
190 ! % Benoetigte Geraete * 
200 ! * TI199/4A Konsole * 
210 ' * Ext. Basic * 
220 ! * * 
260 ! %* Speicherbelegung * 
270! % 8544 Bytes * 
280 ! % Downloaded from ww.ti99iuc.it * 
ZIO 1 RRRERRRRKRKÄNKKRRTTTTKNT 


300 DIM M$(5) 


310 CALL CLEAR :: CALL SCREE 
N(2) 

320 CALL CHARSET :: CALL DEL 
SPRITE (ALL) 


330 FÜR I1=2 TO :: 
OR(1,16,1):: NEXT I 
340 EN=1000 


CALL COL 


350 SC=0 

360 ! TITEL BILD (J/N) 

370 QW=@W+1 :: IF QW>1 THEN 
770 

380 I---------------------- 
390 !DEFINITIONEN FUER 

400 ! TITELBILD 

410 I---------------------- 


420 CALL CHAR (40, "FFFFFFFF") 
430 CALL CHAR(41,RPT$S("OF",8 
),33,RPT$("F",16)) 

440 !---------=----------- 
450 ! BILDSCHIRM AUFBAUEN 
460 !------------- 2 
470 DATA 3,4,7,4,11,4,3,10,6 
‚10,3,15,6,15,3,20,11,20,3,2 
5,7,25,11,25 

480 FOR I=s1 TO 12 :: 
:: READ B :: CALL HCHAR(A,B, 
33,4):: NEXT I 

490 DATA 15,4,19,4,22,4,15,1 
1,22,11,15,18,22,18,15,25,22 
‚25 

500 FOR I=1 TO 9 :: READA: 
: READ B :: CALL HCHAR(A,B,3 
3,5):: NEXT I 

510 DATA 4,10,4,15,4,18,4,20 
‚4,25,15,11,15,15,15,18,15,2 
2,15,25,15,29 


READ A 


520 FOR I=1 TO il :: READ A 
:: READ B :: CALL VCHAR(A,B, 
33,8):: NEXT I 

530 DATA 4,4,7,7,16,8,19,4,3 
‚13 

540 FOR I=s1 TO 5 :: READA: 
: READ B :: CALL VCHAR(A,B,3 


3,9):: NEXT I 


550 CALL CHAR (64, "0000000000 

000010"):: DISPLAY AT(2,4):" 

SCYPSOFT PRESENTS :" :: DISP 

LAY AT(23,3) "COPYRIGHT BY J 

@ BUBLATH" 

560 DISPLAY AT(13,4): "PRESS 

ANY KEY TO BEGIN" 

570 !|---------------------- 

580 ! BLINKEN DER BANDE 

590 !---------------------- 

600 CALL COLOR(1,16,1) 

&10 CALL HCHAR(1,2,41,30):: 

CALL HCHAR (24,2,41,30):: CAL 

L VCHAR(1,2,40,24):: CALL VC 

HAR (1,31,40,24) 

620 CALL KEY(0,K,8):: IF $=1 
THEN 690 ELSE CALL COLOR(2, 
7,2) 

630 FOR I=1 TO 40 :: NEXT I 

640 CALL KEY(0,K,S):: IF $=1 
THEN 690 ELSE CALL COLOR(2, 
2,7) 

650 FOR I=1 TO 40 :: NEXT I 

660 GOTO &20 


670 ! ABFRAGE FUER 
680 ! SPIELANLEITUNG 
6970 CALL CLEAR :: DISPLAY AT 
(7,1): "ANLEITUNG?" :: ACCEPT 


AT(?,12)VALIDATE("JN")SIZE( 
I):AN$ :: IF AN$="J" THEN 17 
50 
700 DISPLAY AT(?7,1):2 "INITIAL 
ISIEREN-BITTE WARTEN" 


FI mu Hanns eigane 
720 ! DEFINITION DER 
730 ! RAUMSCHIFFE UND 

1 

1} 


740 ! DES BILDSCHIRM- 
750 ! AUFBAUES 
760 !-------------222----- 


770 CALL CHAR (96, "208A005402 
48220000AA002280144012802401 
5004A00550208842005500A208") 
780 CALL CHAR (100, "000000000 
100010B0OBO100010000000000000 
000800080D0D080008" ) 

790 CALL CHAR (104,"183830706 
080806580" ,105, "181C0OC0OE0805806 
06",106, "03030C0C3030C0C0") 
800 CALL CHAR (107,"C0C030300 
coC0303",108,"03030808060580C 
0C",109, "C0OC0605050503030" ) 
810 MEt1)="000040FF41033BöFF 
F&EF3BO341FF4000000003FE83COC 
OFDFEFDCOCOS3FEO300" 

820 M$(2)="000000033F?7FFF999 
OFFFF3FO3S000000000000C0FCFEF 
FPPFPFFFEFCCOOOO00O" 

830 M$(3)="00000000030F3FFFF 
F3FOFO300000000040EIF3EFCFEF 
OEOEOFOFSFC3EIFOEOA4" 


840 M$(4)="00000000003F63FFF 
F633F000000000000001C2241FCF 
SFZF2FSFC41221C0000" 
850 CALL CHAR (110, "000000000 
OFFFFOO", 115, "000010381") 
860 CALL CHAR(112,"000000181 
8",113, "00000018", 114, "00000 
01") 
870 A$="000000030FAF3FFF" :: 
B$="000000C0FOF8FCFF" :: CA 
LL CHAR (118, "8SOCOEOFOFSFCFEF 
F") 
880 CALL CHAR(33,A$,34,B$) 
890 CALL CHAR (119, "0103070F1 
F3F?FFF",120, "84422110088542 
2424428508102142842142840810 
A142242442A11008844221") 
900 CALL CHAR (124, "0054002A0 
114810B4B3186327879330 100AAO 
054802382D0C28C 1ESEOCAOCOB") 
910 CALL CHAR (128, "00787C3C1 
EOFOFOFOFOF070707030301001E3 
E3C?8FOFOFOFOFOEOEOEOCOCOB" ) 
920 CALL CHAR (132, "010702030 
&0F 1B3BSBFFO30303060E0280E04 
OCOSOFODSDCEDEFFCOCOCO80704") 
930 CALL CLEAR 
940 CALL CHAR (116, RPTS("F",1 
&),35,RPT$("F",16)) 
950 CALL CHAR (40, "80COEOFOFS 
FCFEFF" 41, "0103070F AF3F?FFF 
"42, "FF99EFPYE7FIE79R") 
960 FOR I=1 TO 40 


990 !---------------------- 
1000 RANDOMIZE :: CALL HCHAR 
((23XRND) +1, (31XRND) +1, (3*RN 
DI+112):: NEXT I 

1010 CALL HCHAR(24,1,116,32) 
:2 CALL HCHAR (23,7, 116,18:: 
CALL HCHAR (22,7,116,18):: C 

ALL HCHAR (21,7,116,18):: CAL 

L HCHAR (20,7,116,18) 

1020 CALL HCHAR (19,23, 118:: 
CALL HCHAR(19,8,11P):: CALL 
HCHAR (19,9,116,14):: CALL H 

CHAR(18,11,119):: CALL HCHAR 
(18,12,116,8) 

1030 CALL HCHAR (18,20, 118):: 
CALL COLOR(11,15,1):: CALL 
HCHAR (23,1,35,6):: CALL HCHA 
R(22,1,35,6):: CALL HCHAR (21 

‚1,35,6) 

1040 CALL HCHAR (20,1,33,6):: 
CALL HCHAR(20,2,34):: CALL 

HCHAR (20,4,34}:: CALL HCHAR( 

20,6,34):: CALL HCHAR (20,25, 

33,8):: CALL HCHAR (20, 26,34) 

1050 CALL HCHAR (20,28,34):: 

CALL HCHAR(20,30,34):: CALL 





HCHAR (20,32,34):: CALL COLOR 
(1,5,0 

1060 CALL HCHAR (21,25,35,8): 
: CALL HCHAR (22,25,35,8):: C 
ALL HCHAR (23, 25,35,8) 


1070 CALL HCHAR (17,17,40):: 
CALL HCHAR (17,14,41):: CALL 
HCHAR (16, 15,41):: CALL HCHAR 
(16,16,40):: CALL HCHAR (17,1 
5,42,2):: CALL COLOR(2,9,1) 
1080 EN=1000 

1090 CALL HCHAR (17,12,104):: 
CALL HCHAR (17,19,105):: CAL 

L HCHAR (16,12,108):: CALL HC 

HAR(16,19,109):: CALL HCHAR ( 
15,13,106) 

1100 CALL MAGNIFY(3) 

1110 CALL HCHAR (15,18,107):: 
CALL HCHAR(14,14,110,4) 
1120 DISPLAY AT(21,6)SIZE(15 
): "ENERGIE: "}jEN 

1130 DISPLAY AT(22,6)51ZE(15 
)E"SCORE :";5SC 

1140 CALL SPRITE(#1,120,8,85 
‚114) 

1150 CALL DELSFRITE(#2):: FO 

R I=1 TO 90 :: NEXT I 


MED Ian 
1170 ! ZUFAELLIGE BESTIMMUNG 
1180 ! DER GESCHWINDIGKEIT 
1190 ! UND DES AUSSEHENS 
1200 ! DES FEINDLICHEN 

1210 ! RAUMSCHIFFES 

1220. Van nn nn 


1230 RANDOMIZE 

1240 XXX=-(I1NT(30XRND) +6) 
1250 SD=INT(4%RND+1) 

1260 CALL CHAR(132,M$(SD)) 
1270 CALL SPRITE(#2,132,1INTt 
13XRND) +3, (S0%XRND) +1,1,2,X%X 


) 

1280 HIT=0 

1290 CALL CHAR(33,A$,34,B$) 

1300 GOSUB 1440 

1310 CALL PATTERN(#1,120):: 

CALL COLOR (#1,8) 

1320 CALL KEY(0,02,D2):: IF 

C2=32 THEN CALL COLOR(10,11, 

1): SCH=1 :: EN=EN-100 ELSE 
CALL COLOR(10,1,1):: SCH=O 

1330 CALL JOYST(1,C1,D1):: © 

ALL MOTION(#1,-D1%3.5,C01%3.5 

) 


1340 CALL COINC (#2,115,114,2 
O,HITS):: IF HITS THEN IF SC 
H=0 THEN CALL DELSPRITE (#2): 
ı CALL SOUND (1000,-6,0):: CA 
LL HCHAR (16,15,96,2) 

1350 IF HITS=0 THEN 1400 
1360 IF HITS AND SCH=1 THEN 


1390 

1370 IF HITS THEN CALL HCHAR 
(17,14,98,4):: CALL COLOR(9, 
9,1):: GOTO 1600 

1380 GOTO 1400 

1390 CALL PATTERN(#2,96):: C 
ALL SOUND (500, -6,0):: FOR I= 
1 TO 50 :: NEXT I :: G0TO ii 
20 


1400 CALL CHAR (34,A$,33,B$) 
1410 GOSUB 1440 

1420 DISPLAY AT(21,6)SIZE(15 
)S"ENERGIE:"jEN :: IF EN<=0 
THEN 1590 

1430 G0TO 1290 

1440 CALL JOYST(1,C1,D1) 
1450 CALL POSITION(#2,A1,Bi) 
ı: IF Al>125 THEN 1150 

1460 CALL MOTION(#1,-D1%3.5, 
c1%3.5) 

1470 CALL KEY(1,C5,D5):: IF 
C5=18 THEN 1520 

1480 RETURN 

1490 !-------------------- - 
1500 ! 
1510 !--------------------- 
1520 CALL COLOR(2,9,1):: EN= 
EN-10 :: CALL COINC (#1,#2,10 
‚HIT):: IF HIT THEN CALL PAT 
TERN (#2,96):: CALL SOUND (300 
„-5,0):3: SC=SC+10 :: CALL MO 
TION(#1,0,0) 

1530 IF HIT=O0 THEN CALL PATT 
ERN(#1,100):: CALL COLOR(#1, 
9) 

1540 DISPLAY AT(22,6)SIZE (15 
)ı"SCORE: "5SC 

1550 IF SC>190 THEN 1740 
1560 IF HIT THEN 1150 

1570 CALL JOYSTt1,C1,DV):: C 
ALL MOTION(#1,-D1%3.5,C01%3.5 


) 

1580 CALL COLOR(2,15,1):: RE 
TURN 

1590 HITS=-1 :: CALL SOUND(- 
1000,-8,0):: CALL HCHAR (16,1 
5,96,2):: CALL DELSPRITE(ALL 
)2: GOTO 1370 

1600 CALL CLEAR 

1610 !--------------------- 
1620 ! 
1630 !--------------------- 
1640 DISPLAY AT(7,7):"DIE FE 
INDLICHEN TRUPPEN HA-BEN DI 
CH BESIEGT": :"DEINE BASIS W 
URDE ZERSTOERT": : : :"WILLS 
T DU EINE ANDERE BASIS AUF A 
TLANTIS VERTEIDIGEN ?" 

1650 !--------------------- 
1660 ! 
1670 !--------------------- 





1680 CALL DELSPRITE(ALL):: D 
ISPLAY AT(17,1):2"J=JA/N=NEIN 
»" 25 ACCEPT AT(17,14)SIZE (1 
I)VALIDATE("JNjn")BEEP:A$ 
1690 IF A$="J" OR A$="j" THE 
N GOTO 310 

1700 CALL CLEAR :: END 

1710 ! 

1720 ! 


1730 I-------------------- 
1740 DISPLAY AT(7,7):"DU HAS 
T VEBER DIE FEIND-.....LICHE 
N ARMEEN GESIEGT!": :"BRAVO! 
PEERRERETREERER"I OH 2 2 "MOEC 
HTEST DU DIESEM PLANETENNOCH 
EINMAL HELFEN?" 
1750 CALL CHAR(124, "10101010 
10001010"):: CALL COLOR(12,1 
6,1):: GOTO 1680 
1760 CALL COLOR(2,16,1):: CA 
LL CLEAR :: DISPLAY AT(1,8): 
"ANLEITUNG: ":TAB(8) 5 "------- 
---": I "DEINE AUFGABE IST ES 
EINE...BASIS AUF DEM WASSER 
PLANETEN" 
1770 DISPLAY AT(6,1):"ATLANT 
15 ZU VERTEIDIGEN": :"LENKE 
DEN CURSOR MIT DEINEM. .JOYST 
ICK AUF DAS ANGREIFENDERAUMS 
CHIFF UND DRUECKE FEUER" 
1780 DISPLAY AT(12,1):"SOLLT 
EST DU DAS RAUMSCHIFF. „NICHT 
TREFFEN SO KANNST DU..IM RI 
CHTIGEN MOMENT FUER....EINIG 
E SEKUNDEN EINEN" 
1790 DISPLAY AT(16,1):"SCHUT 
ZSCHIRM AKTIVIEREN,DER DICH 
ALLERDINGS 100 ENERGIE-EINHE 
ITEN KOSTET.EIN SCHUSS KOSTE 
T NUR 10 EINHEITEN" 
1800 DISPLAY AT(20,1):"ZWANZ 
16 SCHIFFE GREIFEN. ....INSGE 
SAMMT AN,DANN HAST DU..SIE B 
ESIEGT":"BITTE TASTE DRUECKE 
N" 
1810 CALL KEY(0,K,S):: IF $= 
0 THEN 1810 
1820 CALL CLEAR :: G0TO 700 


Die nächste 


TI REVUE erscheint 
am 28. Oktober 





200 1 KRRRRRRRKKTTITTRIIT NN N 
110 1% * 
120 !: * KOMPLEXE ZAHLEN * 
130 ' * * 
140 '%* Copyright by * 
150 ! * * 
160 ! * Gerhard Huebner * 
170 1% * 
180! x* * 
190 ! * Benzetigte Geraete * 
200 ! %* TI99/4A Konsole %* 
210 ! x Ext. Basic * 
220 !' x * 
260 ! %* Spsicherbelegung %* 
270 '% 5337 Bytss * 
280 ' %* x 
ZIO 1! KRRRRKKKRÄKKERRKERKKKKNKR 
300 Zu AARHING NEXT 


310 CALL CLEAR :: CALL COLOR 
(193,7,1)22 CALL HCHARIS,2,13 
38,20):: CALL VCHAR (5, 32,139) 
=: CALL VCHAR (8,2,139,1):: € 
ALL HCHAR(7,2,13?,30) 
320 CALL HCHAR (20,2,132,30): 
° CALL VCHAR!21,2,137,3):1: C 
ALL VCHAR (21,32,139,33:: CAL 
L HCHAR(24,2,137,30) 
320 ZF=10 :;: ZE=1 
340 CALL CHAR (130, "COFOFCFFF 
FFCFOC",131,"0",132,"00183C7? 
ETE3SCITOO", 71, "00002442FF422 
4",26,"010Z0408102040FF”) 
350 TALL CHAR{13?,"FFFF",139 
‚, "OO0C000COO00OOFFFF",139, "TOC 
SCOCSCotococ") 
360 DISPLAY ATt1,2):"1.einga 
be von z=sretj(im)":" 2.einga 
bz von z=r P" 
370 DISPLAY AT{3,2):"3.einga 
be der anzeige":" 4.eingabe 
aus 5:" 
380 DISPLAY AT(ZF,2):"1.z=z 
pol [ kar)" :: DISPLAY AT(Z 
F+1,2):"2.z=z konjungiet kom 
plex" 
390 DISPLAY AT(ZF+2,2):"3.z= 
1/z1" :: DISPLAY AT(ZF+3,2): 
"4.,z=wurzel(zi1)" :: DISPLAY 
AT(ZF+4,2):"5.z in den speicz 
her 5" 
400 DISPLAY AT(ZF+3,2):2”"&.z= 
zitz2" ;: DISPLAY AT(ZF+6,2) 
"7, z=zi1-z2" :: DISPLAY AT(Z 
F+7,2)2"3.z=z1%z2" :: DISPLA 
Y AT(IZF+3,2):"9,z=z1/z2" 
410 ! 
420 !’%XFUNKTIO.WAH 
L 
430 CALL HCHAR (ZF,3,130) 
440 CALL KEY(0,K,S):: IF S=0 
THEN G0T0 4430 





450 CALL HCHAR (ZF,3,131) 

460 IF K=59 THEN ZF=ZF-1 :: 
IF ZF=5 THEN ZF=10 

470 IF kK=38 THEN ZF=ZF+1 :: 
IF ZF=19 THEN ZF=18 

480 IF K=13 THEN CALL SOUND ( 
10,2000,03:: CALL HCHAR(ZF,3 
‚132):: CALL GCHAR(ZF,4,FU): 
: G0T0 510 

490 GOTG 430 

500 ! 

510 IF Fü=49 OR FU=50 OR FU= 
Si OR FU=52 OR FU=53 THEN EI 
N=1 ELSE EIN=2 

520 GOSUE 1120 


530 IF FU=47 THEN GOSUB 690 

540 IF FU=50 THEN GOSUB 750 

550 IF FU=51 THEN GOSUB 826 

560 IF FU=S2 THEN GOSUB 370 

570 IF FÜ=53 THEN GSSULB 640 

S80 IF FU=54 THEN GOSUB 970 

590 IF FU=55 THEN AtI-1)=-At 
i-1):55 B(iI-1)=-Bil-1):5: GOSU 
B 970 

600 IF FU=55 THEN GOSUB 1040 
610 IF FU=5S7? THEN CiI-1)=175 
tI-1):2 DtI-1)=-DII-1):: GOS 
UB 1040 

620 GOTO 430 

630 ! 

640 !%* ** SPEICHER 
650 AS=AII-1):S: B5S=B(I-1):: 

ES=CiI-1):2:5 DS=D(I-1) 

660 DISFLAY AT(&,1):"5:”" 
DISPLAY AT(&,3)SIZE (12):AS 
: DISPLAY ATt8,15):"+J" 55 
ISPLAY AT(6,17)SIZE(12):BS 


670 RETURN 

680 ! 

690 ! *%* 

5 

700 DISPLAY AT(23,1):"" 

710 DISPLAY AT(Z21,1):"Z=" :: 
DISPLAY AT(21,3:A(I-1):: D 
ISPLAY AT(Z21,15):"+J" :: DIS 
PLAY AT(21,17):B(I-1) 

720 DISPLAY AT(22,1):"Z=" :: 
DISPLAY AT{22,3):CtI-1):: D 
ISPLAY AT(22,16&):"P" :: DISP 
LAY AT(Z2,17):D(1I-V) 

730 RETURN 

740 ! 

750 !%% *%%* VORZEICHEN 

760 DISPLAY AT(23,1):"" :: D 
ISPLAY AT(22,1):"" 

770 CALL VORZ(AII-1),B(I-1), 
C{I-1),DtI-1),E1,F1,61,H1) 

780 Ail-i)=Ei :: BiI-U)=Fi: 
© C{I-1)=Gl :: DII-L)=Hl 

790 DISPLAY ATi2i,1):"Z=" :: 


D 


X#POLAF X >KARTE 


DISPLAY AT(21,29):At1I-1):: D 
ISFLAY AT(21,15):"+J" :: DIS 
FLAY AT(Z1,17):5B(I-1) 


800 RETURN 
810 ! 
820 !%* ** KEHRWERT 


830 DISPLAY AT(23,1):"" :: D 
ISPLAY AT(22,1):"" 

840 CALL REZI(A{I-1),B(I-1), 
CiI-1),DiI-1),E1,F1,61,H1) 

850 AtI-i)=El :: BiI-U)=Fi; 
© CtI-1)=61 :: DII-L)=Hl 

860 DISPLAY AT(Z1,1):"Z=" :: 
DISPLAY AT{21,3):AlI-1):: D 
ISPLAY AT(21,15):"+J" :: DIS 
PLAY AT(21,17):B(I-1) 


870 RETURN 
880 ! 
890 !%%* ** WURZEL 


900 DISPLAY AT(23,1):"" :ı D 
ISPLAY AT(22,1):"" 

510 ! 

920 CALL WURZ(A(I-1),B(I-1), 
CtI-1),DiI-1),E1,F1,51,H2) 

930 AtI-1)=El :: B(I-U)=Fi: 
: CtI-1)=G1 :: DII-1)=HI 

940 DISPLAY AT(21,1):"Z=" : 
DISPLAY AT(21,3)5At1-1):: 
ISPLAY AT(Z21,1S):"+J" :: DI 
PLAY AT(21,173:B(I-0) 

950 RETURN 

960 ! 

970 !%% %* ADDIERE 

980 All)=All)+Al2):: Bil)=Bi 
i)+B(2) 

990 CALL KARPOL{A(1),Bil),Ct 
1),D(19) 

1000 DISFLAY AT(23,1):"" :: 
DIEFLAY AT(22,1);*" 

1010 DISPLAY AT(21,1):"2=" : 
: DISPLAY AT(Z1,3):Atl):: DI 
SPLAY AT(21,15)3"+J" ı: DISP 

LAY AT(21,1M):B(l) 

1020 RETURN 
1030 ! 

1040 !%* 

R 

1050 Ctl)=Ct1)XC(2):: Dil)=D 
(1)+D(2) 

1060 CALL POLKAR(AI1),Bil),C 
{1),Dt1)) 

1070 DISPLAY AT(23,1):"" :: 

DISPLAY AT(22,1):"" 

1080 DISPLAY AT(21,1):ı "ze" : 
: DISPLAY AT(21,39:Atl)ı: DI 
SPLAY AT(21,15):"+J" :: DISP 

LAY AT(Z1,1”):B(1) 

1090 RETURN 

1100 ! 

1110 IRRE INGABE KA 

3% 


U 


*%%MULTIPLIZI 





1120 FOR I=1 TO EIN 

1130 CALL HCHAR (ZE,3,130) 
1140 CALL KEY(0,K,S):: IF $= 
0 THEN 60T0 1140 


1150 CALL HCHAR(ZE,3,131) 

1160 IF K=69 THEN ZE=ZE-1 :: 
IF ZE=0 THEN ZE=1 

1170 IF K=88 THEN ZE=ZE+1 :: 
IF ZE=S THEN ZE=4 

1180 IF K=13 THEN CALL SOUND 
(10,2000,0):: CALL GCHAR(ZE, 

4,FE):: GOTO 1230 

1190 GOTO 1130 

1200 NEXT I 

1210 RETURN 

1220 ! 

1230 IF FE=49 THEN G0TO 1270 

1240 IF FE=50 THEN GOTO 1300 

1250 IF FE=51 THEN AtI+1)=At 

Dir BiI+l)=Bil)s: ClIrl)=ct 

I)zz DiI+1)=Dil):s: GOTO 1200 

1260 IF FE=52 THEN Atl)=AS : 
: B(DI=ES :: CtDI=CS :: DiD 

=DS :: GOTO 1200 

1270 DISPLAY AT(23,1):"Z=... 
ee ae ee even 

DISPLAY AT(22,1):"" 

1280 DISPLAY ATi21,1):"Z=" : 
: ACCEPT AT(21,3)SIZE(12)BEE 

P:A(I)::- ACCEPT AT(21,17)BEE 

P:B(l) 

1290 CALL KARPOL(A(T),B(T),C 
(I),Di2)):: GOTO 1200 

1300 DISPLAY AT(23,1):"Z=... 


EEE N EEE A .. 


DISPLAY AT(22,1):"" 
1310 DISPLAY AT(21,1):"Z=" : 
: ACCEPT AT(21,3)51ZE (13) BEE 
P:CtI):: ACCEPT AT(21,17)BEE 
P:D(T) 

1320 CALL POLKAR(A(T),B(I),C 
(I),DiI))s: GOTO 1200 

1330 ! 

1340 CALL POKA(A(TDI,B(T),C(I 
),D{ID,EIDD,F(DD,G(D),H(D)) 
1350 DISPLAY AT(19,1)SIZE(3) 
"Ze" :: DISPLAY AT(19,3):61 
I)ss DISPLAY AT(19,16)SIZE(1 
Jırp®r 3: DISPLAY AT(19,17):H 
m 

1360 DISPLAY AT(20,1)SIZE(2) 
ı"Z=" :: DISPLAY AT(20,3):E( 
1):: DISPLAY AT(20,1S)SIZE(2 
Jın+J" 3: DISPLAY AT(20,17): 
Fil) 

1370 IKRKKKKRKRSUB POKAXKRKR 
x 

1380 SUB FOKA(A,B,C,D,E,F,6, 
H) 


L KARPOL{A,B,G,H):: EsA :: 
=B 

1400 IF A=0 AND B=0 THEN 
L POLKAR(E,F,C,D):: G=C 
=D 


1410 SUBEND 

1420 'KKRKRKKKKSUB POLKARKKK 

* 

1430 SUB POLKAR(A,B,C,D) 

1440 A=C*(COS(DXPI/180)) 

1450 B=C*X(5IN(DXPI1/180)) 

1460 SUBEND- 

1470 TKKRKHRRKERRSUB KARPOLK 

* 

1480 SUB KARPOL(A,B,C,D) 

1490 C=SQR (A*2+B“2) 

1500 IF A=0 AND B=0 THEN D=0 
1: 60T0 1560 

1510 IF A=0 AND SGN(B)=1 THE 

N D=90 :: GOTO 1580 

1520 IF A=0 AND SGN{B)=-1 TH 

EN D=-90 :: GOTO 1560 

1530 IF B=0 AND SGN{A)=-1 TH 

EN D=180 :: 6010 1540 

1540 D=ATN(B/A) X180/PI 

1550 IF SGN(A)=-1 AND SGN(B) 

=-1 OR(SGN(A)=-1 AND SGN(B)= 

1)THEN D=D+180 

1560 SUBEND 

1570 ı 

1580 !RKRKKRKRRRRSUB REZIRKR 

1590 SUB REZI(A,B,C,D,E,F,6, 

H) 

1600 G=1/C ;: H=-D 

1610 CALL POLKAR(E,F,6,H) 

1620 SUBEND 

1630 ! 

1640 YRKRKKRRRKRRRSUB WURZIK 

1650 SUB WURZ(A,B,C,D,E,F,6, 

H) 

1660 G=SQR (ABS (C)) 

1670 H=D/2 

1680 CALL POLKAR(E,F,6,H) 

1690 SLBEND 

1700 ! 

1710 VRRRHRRRRRRSUB VORZIKK 

1720 SUB VORZ(A,B,C,D,E,F,6, 

H) 

1730 B=-B 

1740 CALL KARPOL(A,B,G,H) 

1750 E=A :: F=B 

1760 SUBEND 


zr nn 


CA 





ACHTUNG! 
Neue Telefon-Nummer! 


089/1298013 Ab 1.10.85! 


1390 IF C=0 AND D=0 THEN CAL 
10 








SERVICE 


RESET 


Eine Basic-Pokeliste für 

das Assemblerprogramm 

„RESET“. Benötigt 

werden das Ex-Basic Mo- 

dul und die 32 K RAM 

Expansion. Die Routine 

wird im Direktmoduls 

mit CALL LINK („RE- 

SET“) gestartet. Dieses 

Programm sucht und 

findet ein „gelöschtes“ 

Basicprogramm in der 32 

K RAM Expansion, setzt 

die notwendigen Zeige 

und startet dieses Pro- 
gramm automatisch. 

Damit ein ordnungsgemä- 

ßer Ablauf erfolgt, müs- 

sen einige Voraussetzun- 

gen erfüllt sein. Dies sind: 

1.Das Basicprogramm 
muß über mindestens 
eine Zeile mit einer 
Zeilennummer größer 
als 255 verfügen. Dies 
dürfte aber in der Re- 
gel kein Problem sein. 

2. Die zuersg gespeicherte 
(eingegebene) Zeile 
sollte eine Kommentar- 
zeile sein, da sie even- 
tuell verändert wird. 
Dies ist nicht immer 
identisch mit der klein- 
sten Zeilennummer. 
Zum Urmstellen gibt 
es folgende Möglich- 
keiten: 

a Für Diskettenbetrieb: 
1) Eingabe einer Kom- 
mentarzeile mit klein- 
ster Zeilennummer un 
und mindestens 20 (in 
Worten zwanzig) Zei- 
chen. 

2) Speichern des Pro- 
grammes mit SAVE 
DSK1.PRG,MERGE 

3) Eingabe von NEW 
4) Eingabe von MER- 
GE DSK1.PRG 

5) Speichern des Pro- 
grammes mit SAVE 
DSK1.PRG 

b Alle anderen müssen 
einen umständlicheren 
Weg einschlagen: 

1) Siehe a) 1) 
2) Editieren des gesam- 


ten Programmes, d.h., 
nacheinander über die 
Cursortasten jede Zeile 


anwählen und dort 
mindestens ein Zei- 
chen überschreiben. 


Die ENTER Taste zu 

drücken reicht nicht 

aus. 
Es versteht sich ja fast 
von selbst, daß diese 
Kommentarzeile nicht 
mehr geändert werden 
darf. Beim Eingeben neu- 
er Programme zuerst die 
Kommentarzeile und 
dann das restliche Pro- 
gramm eingeben. 

Hier nun noch eine 
kurze Routine, die ein 
versehentliches Ändern 
erschwert. Im Direktmo- 
dus eingeben: 

CALL PEEK (-32718, 
A,B)::CALL LOAD (A* 
256+B--65539,0,0) 

Zur großen Überra- 
schung hat die erste Zeile 


Außerdem können mit 
diesem Programm RAM/ 
ROM-Bereiche in hexa- 
dezimaler Form angezeigt 
werden, ebenso Bereiche 
im VDP-RAM. 

Als Zugabe gibt es die 


“Möglichkeit, das RAM/ 


nun die Nummer 0 und 


ist daher gegen Ändern 
geschützt. Durch Eingabe 
von „RES“ erhält diese 
Zeile wieder einen :nor- 
malen Wert. 

Peter Vorwerk 


Disassembler 


Der Disassembler ist ein 
nützliches Werkzeug für 
Minimem-Benutzer, das 
aber auch für Extended 
Basic und/oder Memory 
Expansion geeignet ist. 
Man kann damit Maschi- 
nensprache-Routinen dis- 
assemblen und somit 
auch von Programmen, 
die mit dem Line-by-Line 
Assembler geschrieben 
sind, ein Listing erzeu- 
gen. Dabei werden die 
Symbole der symboli- 
schen Adressen und die 
Namen der Minimem Uti- 
lity Routinen eingesetzt. 

Natürlich kann man 
auch beliebige Betriebssy- 
stem-Routinen des ROM 
übersetzen. 


11 


ROM nach einem vierstel- 
ligen Hexwert zu durch- 
suchen. 

Zum schnelleren Ab- 
lauf steht zum Umrech- 
nen der Dezimalzahlen 
wahlweise eine Routine 
in Maschinensprache zur 


Verfügung, die jedoch 
80 Bytes im Minimem be- 
legt. 


Als Hardcopy wird ein 
80-stelliger Drucker über 
eine RS232-Schnittstelle 
benutzt. 

Nach dem Starten er- 
scheint ein Auswahl-Me- 
nü mit 6 Optionen: 

1. Disassembler allgemein 

2. Disassembler mit Sym- 
bolen und Utility-Na- 
men 

3. Auffinden eines Hex- 
strings 

4. Dumpen 

ROM 
5. Dumpen aus VDP- 

RAM 


aus RAM/ 


6. Programmende 
Nachdem eine Option ge- 
wählt worden ist, erfol- 
gen die Eingaben für 
Drucker und Maschinen- 
sprache-Routine (ja/nein). 
Danach werden die An- 
fang-- und Endadresse 
des gewünschten Berei- 
ches eingegeben. Nach 
Erreichen der Endadresse 
wird gefragt, ob mit der 
gleichen Option weiterge- 
macht oder das Pro- 
gramm beendet werden 
soll. 

Bis auf Option 5 
laufen alle Optionen auch 
unter Extended Basic, al- 
Irdings ist Option 2 we- 
gen der fehlenden Tabel- 
len nicht sinnvoll. Eben- 
so kann die Maschinen- 
sprachroutine natürlich 
nicht geladen werden, es 


sei denn, amn hat eine 
Memexp und ändert die 
Adressen. Das Format 
der Ausgabe ist aus den 
Mustern ersichtlich. Die 
Bildschirmausgabe ist 
ähnlich (zwei Zeilen pro 
Assembler-Befehl, 3 statt 
8 2-Byte Blöcke beim 
Dump). 


Erdbeer-Paul 


Die Hauptrolle des Pro- 
gramms spielt Paul, der 
Zwerg. Seine Aufgabe be- 
steht im Pflücken von 12 
Erdbeeren. Diese kann er 
aufnehmen, indem er un- 
ter die Erdbeere geht und 
Taste Q gedrückt wird. 
Hat er eine Erdbeere auf- 
genommen, so wird 
dieses am unteren 
rechten Bildrand ange- 
zeigt. Die Erdbeere muß 
er dann zu dem Topf 
bringen. Steht er am 
am Topf, muß noch ein- 
mal die Taste S bedient 
werden, damit: Paul die 
Erdbeere ablegt. Aber na- 
türlich gibt es auch Ge- 
fahren: Eine Maus in der 
unteren Etage, Spinnen 
in der oberen und eine 
Biene. Stößt Paul mit ei- 
nem dieser Tiere zusam- 
men, ist das Spiel been- 
det (neuer Start: Drücken 
einer Taste). Paul. hab 
aber auch eine Chance, 
denn er besitzt 5 Schwer- 
ter, mit diesen kann er 
alle Tiere außer der Biene 
vertreiben. Pro vertriebe- 
nem Tier gibt es 15 
Punkte, pro abgelegter 
Erdbeere 30 Punkte und 
6 Zusatzschwerte. Sinkt 
die Zahl der Schwerte auf 
0, dann ist das Spiel be- 
endet. Sind alle Erdbee- 
ren geerntet, beginnt eine 
neue Runde. Das Benut- 
zen der Schwerter erfolgt 
über Taste , :links und 
Taste. :rechts. 

Gunther Krämling 
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sl 
r4ss 
EC 

F4s 1 
PEN 

r1 

FRös1 
»FFE2 
Ris4 
>FFE2 
gliarl 

Er 
SNLUMRFEF 
S=MLLNK 
=TFEE 
s>224F.F4 
F4ıRr? 
+m11 
F4ss 
FlilsFq 
F4sd4 
R4s1iNn 
HM 

F4s 7 
4.4 
Fd4sS 
r4a +RS+ 
FErırkg$ 
+r11. 
ResErF 
SZTERES 
+F1n 


ACHTUNG! 
Neue Telefon-Nummer! 


089/1298013 Ab 1.10.85! 
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18 REMKKKRRRRRRTTKTTRTTTRR 
11 REM+ * 
12 REM+ DISASSEMBLER * 
13 REM+ Copyright by * 
14 REM+ * 
15 REM% Fritz-H. Mueller * 
16 REM+ % 
17 REM%XBenoetigte Geraete* 
18 REM% T199/4A Konsole * 
19 REM Minimem-Modul * 
28 REM%optional: Xbasic * 
21 REM 32-K erweiterung* 
22 REM%X Drucker * 
23 REM% Speicherbelegung * 
24 REMx 9449 Bytes * 
25 REMKKKKKKKKKRKKKERKRRRE 
26 REM 

188 CALL CLEAR 

118 CALL SCREEN (15) 


128 PRINT : : 2:5 
DISASSEMBLER": : 

138 PRINT " (C) F.H.MUELLE 

R 1984 "i : 31:55 

REM AM BOERNEKEN 1 


149 
158 REM 3181 RUEHEN 
168 REM TEL.95367/886 


178 DIM OP$(78) „UNAM$ (28) ,UA 
D(28),5Y$149),SYA(49) 

188 DEF TX(X)=INT(X-((X>=19) 
*7)+48) 
198 DEF 
288 DEF 
219 DEF 
228 DEF 
238 DEF 


RST(Y)=Y-INT(Y) 
UHtX)=INT(X/16) 

LH (X) =X- (UH (X) 16) 
UB2=INT (B(2)/64) 
LB2=B (2) -(UB2%X64) 
248 DEF TS=INT(LB2/16) 

258 DEF SAD=B(1)%256+B(2) 
268 DATA >,” nn“ MT), 
R,%,-,+,,@ 

278 READ ZX%,L1%,L2$, ZK$,KA$® 
‚KZ$,R$,5T%,M®,PL$,LL#,KLA$ 
288 DATA COC,CZC,XOR,XOP,LDC 
R,STCER,MPY,DIV 

298 DATA LIMI,IDLE,RSET,RTWP 
‚CKON,CKOF,LREX 

388 DATA JMP,JLT,JLE,JE@,JHE 
‚JGT,INE, INC, JOC,JINO,JL,JH,J 
OP,SBO,SBZ,TB 

318 DATA LI,,AI,,ANDI,,ORI,, 
CI,,STWP,,STST, ,LWPI 

328 DATA BLWP,NEG,DEC,SETO,B 
‚INV,DECT,ABS,X,INC,BL,,CLR, 
INCT,SWPB, 

338 DATA SRA,SRL,SLA,SRC 

348 DATA SZC,SZCB,S,5B,C,CB, 
A,AB,MOV,MOVB, SOC, SOCB 

358 FOR I=i TO 78 

368 READ OP$(1I) 

378 NEXT I 

388 DATA 1,3,8,8,11,16,9,9," 


398 DATA 1,8,98,28,25,17," " 

488 GOTO 1598 

418 REM *%#%#%* COVERT BYTE TO 
HEX RER 

428 ON AN3 GOTO 439,458 

438 CALL LINK("TOX$",2,B(1), 

B(2) ,BxX#) 

448 RETURN 

458 FOR I=1 TO 2 

468 A$=CHRS(TX(B(1)/16)) 

479 HS=CHRS(TX(RST(B(I)/16)% 
16)) 

489 AH$(T)=A$KH$ 

498 NEXT I 

598 BX$=AH$(1)KAHS (2) 

518 RETURN 

520 REM *%%%% CONVERT ADDRES 
S TO HEX XK% 

538 ON AN3 G0TO 548,568 

549 CALL LINK("TOX$",1,ADI,B 
x) 

558 RETURN 

568 B(1)=AD1/256 

578 B(2)=256%(RST(B(1))) 

588 GOTO 458 

598 REM 

608 REM %%%%%* CONVERT TO DEC 
IMAL KKR%%* 

618 REM 

628 ADO=# 

63 FOR I=1 T0 4 

648 AAS(IT)=ASCISEGS(AXIS,I,1 
y) 

6508 IF AAS(1)>57 THEN 688 

668 AD(I)=VAL(CHRS(AAS(I))) 

678 G0T0 698 

688 AD(I)=AAS(I)-55 

698 ADO=ADO+(AD(I)X16*(4-1)) 

788 NEXT I 

718 RETURN 

728 REM %%#%%* INCR ADDRESS A 

ND PEEK 2 BYTES #%%% 

738 ADR=ADR+2 

748 ADRS=ADRS+2 

758 IF ADRS>=ADRE THEN 3398 

768 IF ADR<32768 THEN 788 

778 ADR=ADR-65536 

788 IF AC=i THEN 868 

798 ON AN3 GOTO 899,828 

898 ADI=ADR 

818 GOTO 838 

828 ADI=ADRS 

838 GOSUB 528 

848 ADR$=BX$ 

858 PRINT #P:ADR$;LD$; 

868 IF OPT>4 THEN 928 

878 CALL PEEK(ADR,B(1),B(2)) 

888 IF OPT<>3 THEN 939 

898 IF SAD<>SU THEN 734 

BB GCSUB 4968 

918 GOTO 739 


928 CALL PEEKV(ADR,B(1),B(2) 
) 

938 GOSUB 419 

948 PRINT #P:BX$jLi$} 

959 IF SYT=8 THEN 1818 

968 IF RR=1 THEN 1999 

978 CAD=ADR 

988 GOSUB 3949 

998 RETURN 

12908 GOSUB 3919 

18198 IF OPT>3 THEN 1948 

1828 RETURN 

1838 REM %X%%%%* DUMP FORMAT 

SUBROUTINE #4%%% 

19848 Ac=1 

1858 FOR I=1 T0 2 

10868 IF B(1)<32 THEN 1988 

1878 IF B(1)<95 THEN 1998 

1888 B(1)=46 

1898 BP$S(I)=CHR$(B(I)) 

1188 NEXT I 

1118 BC$(BL)=BP$(1)&BP$(2) 

1128 IF BL=BM THEN 1158 

1139 BL=BL+1 

1148 G0TO 739 

1158 IF P=8 THEN 1178 

1168 PRINT #P:L2$; 

1178 FOR I=i TO BM 

1188 PRINT #P:BC$(1)5 

1198 NEXT I 

1288 PRINT #P 

1218 BL=1 

1228 AC=9 

1238 60T0 738 

1248 REM %%%%% REGISTER SUBR 

IN KKRK% 

1258 RD$=R$&STR$ (RD) 

1268 ON RIX GOTO 1279,1299,1 

318, 1459 

1278 OP1$=RD$&KO$ 

1288 RETURN 

1298 OPi$=ST$KRD$KKOS 

1388 RETURN 

1318 RR=1 

1328 Ac=1 

1338 GOSUB 738 

1348 IF 01=47 THEN 1358 ELSE 
1389 

1358 UF=8 

1368 GOSUB 3829 

1378 IF UF=1 THEN 1418 

1388 IF SF=1 THEN 1499 

1398 HX$=KLASRZX$ 

1488 IF RD<>@ THEN 1439 

1418 OP1$=HX$&BX$S&KOS 

1428 RETURN 

1438 OP1$=HX$&BX$&KASERDSEKZ 

$KO$ 

1448 RETURN 

1458 OP1$=ST$KRDSKPLSKKOS 

1468 RETURN 

1478 REM * 





% 
1488 REM %X%%%%* BEGINN HAUPT 
PROGRAMM KH%% 
1498 REM X* 

+ 
1598 RESTORE 388 
1518 READ BL,BM,AC,TL,TC,TP, 
OPT,SYT,LDs 


1528 PRINT "WAEHLE AUS :": ; 
15398 PRINT "DISASSEMBLER = i 
1548 PRINT "DISASS M/SYM = 2 
No 

1558 PRINT "MEMORY SCAN = 3 
15689 PRINT "DUMP..z.c22..= 4 
1578 PRINT "DUMP VDP.....=5 
1588 PRINT "PROGRAMMENDE = 6 
1598 INPUT OPT 

16888 PRINT 

1618 IF OPT<>6 THEN 1639 
1629 END 

16398 IF OPT=3 THEN 1698 

1648 INPUT "DRUCKEN N=9,J=1 
"ep 

1659 IF P=8 THEN 1698 


1668 OPEN #P: "RS232" ‚OUTPUT 

1678 RESTORE 399 

1688 READ BL,BM,AC,TC,TP,TL, 
LD$ 

1698 INPUT "ASM J=1,N=2 ":AN 
3 

1788 PRINT 

1718 IF AN3=2 THEN 1738 

1728 GOSUB 4138 

1738 CALL CLEAR 

1748 PRINT 

175@ INPUT "BEGINN,ENDE (HEX 
) ":ADR$, ADRE$ 

1768 PRINT 


1778 IF LEN(ADRS$S)<>4 THEN 17 
98 


1788 IF LEN(ADRE$)=4 THEN 18 
28 

1798 PRINT "* 4 CHAR HEXWERT 
EINGEBEN " 

1888 CALL SOUND (199,299,3) 
1818 GOTO 1758 


1828 ON OPT GOTO 1998,19698,1 
859,19998,1998 
1849 REM %%%%* FIND WITHIN RA 


M/ROM #%%%* 

1858 INPUT "SUCHBEGRIFF (HEX 
) "AXIS 

1868 IF LEN(AXI$)=4 THEN 198 
1] 

1878 PRINT "% SUCHBEGRIFF MU 


SS VIERSTELLIG SEIN" 
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1889 
1899 
1999 
1919 
1929 
19493 GOTO 1998 

1958 REM %%%* SETUP INITIAL A 
DDRESSES *#%* 

19689 IF SYT=1 THEN 1999 

1978 IF UT=1 THEN 1998 

1989 GOSUB 3439 

1999 AXI$=ADRE$ 

28898 GOSUB 62% 

2819 ADRE=ADO 

2929 AXI$=ADRS$ 

2839 GOSUB 62% 

2938 ADR=ADO 

2959 ADRS=ADO 

29689 RR=O 

2078 GOSUB 76% 

29898 GOTO 2178 

20898 REM %%%%* FORMAT ASSEMBL 
ER OUTPUT XX%%* 

2188 PRINT #P:TAB(TL);LBS; 
2118 PRINT #P:TAB(TC)5;OPCS$ST 
AB(TP);OP1$;0P2$ 

2129 RR=& 

2138 LB$=LL$ 

2149 AC=6 

2158 GOSUB 739 

216@ REM %%*%% FIND OPCODE %*%* 
x 
2178 
2189 
2198 
2209 
2219 


CALL SOUND (199, 299,3) 
G0TO 1859 

GOSUB 628 

SU=ADO 

Ac=i 


OP1$=LL$ 
OP2$=LL$ 

HX$=ZX$ 

KO$=ZK$ 
Bi=INT(B(1)/4) +1 

2228 IF B(1)>15 THEN 2258 
2238 ON Bi GOTO 2249, 2599,26 
39, 2294 

2248 ON Bil)+1 GOTO 2298,229 
2,2339, 2489 

2258 IF B(1)<32 THEN 2748 
2268 IF B(1)<64 THEN 2948 
2278 GOTO 2988 

2288 REM %%%%% INVALID OPCOD 
E IS DATA KAr% 

2298 OPC$=LEI$ 

2388 PRINT #P:TAB(TC) 5 "DATA" 
;LISI HX$ BX$ 

2318 G60T0 2129 

2328 REM X%%%% FORMAT VIII 
INSTRUCTIONS KKX%% 

2338 OI=UH(B(2))+32 

2348 OPC$=0P$(01) 

2358 IF OPC$=LL$ THEN 2299 
2368 IF OPC$="LWPI" THEN 238 
2 
2379 
Kos 
2388 


OPIS=R$S&RSTR$S(LH(B(Z)))& 


Ac=1 





2398 
2429 
2418 
2429 
2439 
2449 
2459 
2468 
2479 
2488 


RR=1 

GOSUB 739 

IF B(1)>@ THEN 2449 
OP2$=STR$(B(2)) 

GOTO 2198 

IF SF=8 THEN 24698 
HX$=LL$ 

OP2$=HX$&BX$ 

GOTO 2198 

REM %%%%% FORMAT VII IN 


STRUCTIONS X#XX%% 


2498 
2598 
2519 
2529 
2532 
2298 
2548 
2558 
2568 
25789 


IF B(2)>9 THEN 2529 
OPC$=0P$ (9) 

GOTO 2388 

F=INT (B(2)/32) 

IF B(2)-(F*%32)<>@ THEN 


Ol=F+8 

OPC$=0P$ (01) 

GOTO 2198 

REM %%%%% FORMAT VI INS 


TRUCTIONS XH%%* 


2589 
25989 
2628 
2619 
2628 
2638 
2648 
2658 
2669 
2679 


H=B(1) +43 

OI=H+ (UB2%3) 

OPC$=0P$ (01) 

IF OPC$=LL$ THEN 2298 
RD=LH (B(2)) 

KO$S=LL$ 

RIXx=TS+1 

GOSUB 1259 

GOTO 2198 

REM %#%%%% FORMAT V INST 


RUCTIONS XX%%% 


2688 
2698 
27892 
KOs 

2718 
2728 
2738 


0I=B(1) +55 
OPC$=0P$ (01) 
OP1$=R$&STR$(LH(B(Z)))& 


OP2$=STR$(UH(B(2))) 
GOTO 2199 
REM %%%%%* FORMAT II INS 


TRUCTIONS X%%*%* 


2748 
2759 
2768 


0I=B(1) 
OPC$=0P$ (01) 
IF SEG$(OPCS$S,1,1)="J" T 


HEN 2798 


2778 
2788 
2798 
2828 
2812 
28629 
2838 
2848 
2859 
2868 
2878 
2869 
2898 
2929 
2919 
2928 


OP1i$=STR$(B(2)) 

GOTO 2198 

IF B(2)>127 THEN 2829 
ADI=ADR+(B(2)%2) +2 
GOTO 2838 

ADI=ADR- ((255-B(2))%*2) 
IF SYT=8 THEN 2989 
RR=1 

CAD=ADI 

GOSUB 3938 

IF SF=8 THEN 2988 
HX$=LL$ 

GOTO 2919 

GOSUB 539 
OPI$=HX$RBX$ 

GOTO 2199 


15 


2938 


REM *%%%% FORMAT III/IV 


/1IX INSTRUCTIONS X4X%%%* 


2949 
2958 
29609 
4 

2978 
2988 
8 

2998 
3298 
3818 
3228 
3838 
3849 
3259 
32968 
32879 


OI=INT((Bt1)-28)/4) 
OPC$=0P$ (01) 
RDi=(Bt1)-(28+(01%4)))* 


RD=RD]J +UB2 
IF LEN(OPC$)=4 THEN 394 


OP2$=R$&STR$ (RD) 
RD=LH(B(2)) 

RIX=TS+1 

GOSUB 1259 

GOTO 2198 

OP2$=STR$ (RD) 

GOTO 3999 

REM 

REM %%%%% FORMAT I INS 


TRUCTIONS XR%%%* 


3888 
3898 
3188 
3118 
3129 
3138 
3148 
3159 
3168 
3178 
3188 
3198 
3298 
3218 
3228 
3239 
3248 
3259 
3268 
3279 

* 


3289 
*rr 
3298 
* 
3399 
3319 
3329 


s 

3339 
3349 
3352 
3368 
3379 
3389 
3398 
3489 
3412 
3428 
3438 


OI=UH (B(1)) +63 
OPC$=0P$ (01) 
BiS=B(1) 

B2S=B(2) 

RIX=TS+1 
RD=LH(BI2)) 
KO$=LL$ 

GOSUB 1259 
OP1S$=0P1$ 
Bt(i)=BiS$S 

B(2)=B2S 
TD=INT(LH(B(1))/4) 
BiL=(LH(B(I1))-(TDX4))%4 
RIX=TD+i 
RD=BiL+UB2 

GOSUB 1258 
OP2$=0P1$ 
OPi®=0PI1S$&ZKS 
GOTO 2198 

REM %* 


REM %%%%% ENDE PROGM %% 
REM * 


PRINT #P 
PRINT 
INPUT "WEITER ? J/N ":A 
IF A$="N" THEN 3498 

IF P=8 THEN 3378 
RESTORE 398 

GOTO 3388 

RESTORE 388 

READ BL,BM,AC 

GOTO 1748 

IF P=8 THEN 1598 

CLOSE #P 

G0TO 1599 

REM %%%%* EINLESEN UTILI 


TY TABLE XHK%%* 


3449 


UADR=28438 





3458 PRINT :"UTLTAB... "5 
3468 FOR I=1 TO 28 

3478 CALL PEEK(UADR,N(1),N(2 
),N(3),N(4) ,N(5),N(6),B(1),B 
(2)) 

3488 FOR J=1 TO 6 

3498 NA$S(J)=CHRS(N(J)) 

3598 NEXT J 

3518 UNAMS(TI)=NAS(L)KNAS(Z)R& 
NAS (3) &NAS$ (4) KNAS (5) KNAS (6) 
3528 UAD(I)=SAD 

3538 UADR=UADR+8 

3549 NEXT I 

3559 UT=1 

3568 PRINT "EINGELESEN": : 
3578 IF OPT=2 THEN 3698 

35688 RETURN 

3598 REM %%%%% EINLESEN SYMB 
OL TABLE K#H%% 

3688 SYCA=29972 

3619 SYTA=31968 

3629 SYT=1 

3638 CALL PEEK(SYCA,B(1),B(2 
) 
3648 
3658 
3668 
3679 


IF SAD>i THEN 3678 
SYT=8 

RETURN 

SYC=SAD 

3688 FOR V=1 TO SYc 

3698 CALL PEEK(SYTA,N(1),N(2 
),Bi1),B(2)) 

3788 FOR J=1 T0 2 

3718 S$(J)=CHRS(N(J)) 

372@ NEXT J 

3738 SYS(V)=SEL1)KS$(2) 

3748 SYA(V)=SAD 

3758 GOSUB 428 

3768 PRINT #P:TAB(6) 5SY8(V)} 
Li6} "EQU"SLISI ZXS BX® 

3778 SYTA=SYTA+4 

378@ NEXT V 

3798 PRINT #P 

3898 RETURN 

3818 REM *%%%* SCAN UTLTAB *% 
Hr 
3829 
3838 
3849 
3859 
3868 
3878 
3888 
3898 
3998 
3912 
** 
3928 
3938 
3949 
3958 
3968 


IF UT=8 THEN 386% 

FOR I=i TO 28 

IF SAD=UAD(I)THEN 3879 
NEXT I 

RETURN 

BX$=UNAMS (I) 

HX$=KLA$ 

UF=1 

RETURN 

REM %%%% SCAN SYMTAB %*%* 


CAD=SAD 

sF=ß 

FOR I=1 TO SYC 

IF CAD=SYA(I)THEN 3988 
NEXT I 
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3978 
3988 
3999 
4098 
4910 
4928 
4938 
4848 G0TO 3888 

4058 REM *X%#%%* PRINT GEF.SUC 
HBEGIFF K4%% 

4868 ADI=ADR 

4878 GOSUB 428 

4888 SU$=BX$ 

4098 GOSUB 53% 

4188 PRINT #P:BX$jL1$3 ZX$5 SU 
% 

4118 G0TO 738 

4120 REM %%%%% TEST U LADEN 

ASM PROG K% 

4138 DATA 84,79,88,36,32,32, 
127,182 


RETURN 

sF=1 

IF RR=1 THEN 4828 
LB$=SY$(1I) 

RETURN 

BX$=SY$(1) 

RR=® 


4149 PAD=32768 

4158 RESTORE 413% 

4168 FOR I=ß TO 3 

4178 READ A 

4188 CALL PEEK(PAD+I,NM) 
4198 IF NM<S>A THEN 422% 

42898 NEXT I 

4218 RETURN 

4228 PRINT "%% TOX$ PGM NICH 
T GELADEN. %%*" 

4238 PRINT "LADEN BELEGT >7?7F 
68 BIS >?7FF@ " 

4248 PRINT "UND REF/DEF TABL 
E >?7FF8 "ii : 

42598 INPUT "OK? J/N "SANS 
4268 IF AN$="N" THEN 4278 EL 
SE 429% 

4278 AN3=2 


4289 RETURN 

4298 DATA 194,139,4,192,2,1, 
8,1,2,5,127,96,2,6,4,8,221,7 
2,6, 168 

4388 DATA 127,188,194,4,5,12 
9,6,168,127,188,2,136,8,1,22 
‚5,6,168,127,198 

4318 DATA 18,68,6,168,127,19 
8,18,132,6,168,127,198,18,19 
6,6, 168,127,198,5,129 

4328 DATA 2,136,2,1,19,29,2, 
129,0,4,19,26,6,160,127,180, 
16,248,4,32 

4338 DATA 96,68,4,32,96,28,1 
8,0,193,32,131,74,193,196,4, 
91,8,132,289,8 

4348 DATA 8,68,2,132,8,18,17 
‚2,2; 36,2, ?, 2,36,8,48, 18, 132 
‚221,68 

4358 DATA 193,7,4,91,2,2,127 
‚96,4,32,96,72,4,98 

4368 LP=? 





4378 
4388 
4399 
4498 
4410 
4420 
4438 
4499 
4459 
4460 
4479 
4472 
) 

4489 


RESTORE 4138 
FOR I=8 TO LP 

READ BY 

CALL LOADtPAD+1,BY) 
NEXT I 

IF LP=133 THEN 4478 
PAD=32614 

LP=133 

RESTORE 4299 

GOTO 4389 

PRINT 

CALL LOAD (28792,127,248 


RETURN 
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RESET 
Copyright by 
Peter Vorwerk 
Benoetigte Geraete 
TIP9/4A Konsole 
Ext. Basic 


32-K Erweiterung 


Speicherbelegung 


* 
* 
% 
+ 
* 
* 
% 
% 
+ 
* 
* 
* 
% 
* 
* 1599 Bytes 
* 

+ 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
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39 ! 
199 RESTORE 35% 


FOR I=1 T 


O0 18 ©: READ CH(T):: NEXT I 
118 RESTORE :: FOR I=i1 TO 19 

ss: SUM=8 :: FOR J=si TO 16: 
s READ A :: SUM=SUM+A :: NEX 
TJ 


128 IF SUM<>CH(IITHEN PRINT 
"%* FEHLER IN ZEILE"}1I%#19+13@ 
CALL SOUND (188, 118,9) :: 


STOP 
138 
148 
TZT 
158 
168 


NEXT I 

PRINT " ALLES 0.K.";" 

WIRD GEPOKED" 

RESTORE 

ADR=15398 

178 CALL INIT 

188 READ A :: IF A<>-1 THEN 

CALL LOAD(ADR,A):: ADR=ADR+1 
ı: GOTO 188 

199 CALL LOAD(8194,69, 186,63 
‚248) 

288 FOR 1=16376 TO 16383 :: 

READ A :: CALL LOAD(I1,A):t N 

EXT 1 

218 DATA 98,99,2,224,60,9,2,1 
‚255,216,6,65,6,65,216,49 

228 DATA 6%,36,216,49,60,34, 

216,49,60,32,152,32,69,36, 6% 
‚38 

238 DATA 22,244,152,32,69,34 
‚60, 38,22,248,152,32,60,32,6 

9,38 

248 DATA 22,236,2090,1,6%0,36, 

2,33,0,2,216,49,60,34,216,49 

258 DATA 68,35,2,33,8,2,216, 

49,698,32,216,49,68,33, 152,32 

268 DATA 69,32,68,36,17,13,1 

52,32,60,32,60,34,21,242,17, 

4 

278 DATA 152,32,6%9,33,69,35, 

20,237, 20%0,32,69,32,60,34,16 
‚233 


288 DATA 6,96,6%,35,2090,32,6 
28,36,131,49,200,32,490,34, 128 
‚51 

298 DATA 216,32,68,39,131,35 
‚216,32,68,38,131,124,2,224, 
131,224 

3088 DATA 4,94,9,112,255,8,25 
5,0,255,90,255,9,255,9,255,8 
318 DATA -1 

328 REM NAMENSTABELLE: 

338 DATA 82,69,83,69,84,32,6 
2,40,0,90,9,0,2,9,2,8 

348 REM PRUEFSUMMEN 

359 DATA 1266,1199,1278,1216 
‚1031,872,1296,1219,1695,174 
2 


JE 





E7ESC1S") 
390 CALL 
400 CALL 
410 CALL 
420 CALL 
430 CALL 
440 CALL 
450 CALL 
460 CALL 
470 CALL 
480 CALL 
490 CALL 
500 CALL 


SCREEN (?) 


10 REMRRRRRRRRKKRKKRKRTRRK 
il REM* * 
12 REM* ERDBEER-PAUL * 
13 REM* Copyright by * 
14 REM*Gunther Kraemling* 
15 REM* * 
17 REM *Benoetigte Geraete* 
18 REM* TI9P9P/4A Konsole * 
19 REM* * 
23 REM* Speicherbelegung %* 
24 REM* 6194 Bytes * 
25 REMRKRRRRRKKKRKKRTRTRTRK 
26 REM 

200 CALL CLEAR 

210 CALL CHAR (33, "FFFFFFFFFF 
FFFFFF") 

220 CALL CHAR (34, "FFFFFF") 
230 CALL CHAR (40, "FFFFFFFFFF 
FFFFFF") 

240 CALL CHAR (58, "?7ESAFEALSFF 
182442") 

250 CALL CHAR (59, "O0007ESAFF 
99ASAS") 

260 CALL CHAR (44, "060C9C4830 
080808") 

270 CALL CHAR (72, "OCIEIEOEE4 
BFFFOE") 

280 CALL CHAR (80, "3C243C243C 
243024") 

290 CALL CHAR (88, "00000C0201 
2D?7EFE”) 

300 CALL CHAR (89, "187E181818 
SCc7EFF") 

310 CALL CHAR (96, "3F3FO7OFIF 
SF?FFF") 

320 CALL CHAR (97, "FCFCEOFOFS 
FCFEFF") 

330 CALL CHAR (98, "FFFFFFFFFF 
7FSFiIF") 

340 CALL CHAR (102, "FFFFFFFFF 
FFEFCFS") 

350 CALL CHAR (106, "0000004CF 
c40") 

360 CALL CHAR (107, "000000023 
FO2") 

370 CALL CHAR (120, "OEIFSFSFA 
EOE") 

380 CALL CHAR (128, "0000387E? 


COLOR(1,3,1) 
COLOR(2,14,1) 
COLOR (3,2,1) 
COLOR (4,2,1) 
COLOR (5,3,1) 
COLOR (6,12,1) 
COLOR (7,11,1) 
COLOR (8,15, 1) 
COLOR (9,6,1) 
COLOR (10,6,1) 
COLOR (11,6,1) 
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510 
520 
530 
540 
550 


570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 


710 
720 
730 
740 
750 


760 
770 
780 
790 
800 
810 
820 
830 


990 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


COLOR (12,9,1) 
COLOR (13,9,16) 
HCHAR (3, 1,40, 32) 
HCHAR (20,1,33,32) 
HCHAR (8, 1,40, 16) 
VCHAR (9, 16,40, 9) 
HCHAR (10,17,34,3) 
HCHAR (10,21,34,7) 
HCHAR (10,29,34,4) 
HCHAR (15,1,34,4) 
HCHAR (15,7,34,7) 
HCHAR (15,15,34) 
HCHAR (15, 17,34) 
HCHAR (15, 19,34, 11) 
HCHAR (15, 31,34, 2) 
HCHAR (18,5,34,2) 
VCHAR (10,20,80,4) 
VCHAR (10,28,80,4) 
VCHAR (15,14,80,4) 
VCHAR (15, 18,80,4) 
VCHAR (15,30,80,4) 
VCHAR (16,5, 96) 
VCHAR (16,6, 97) 
VCHAR (17,5,98) 
VCHAR (17,6, 102) 


ZENMO DD, < 


FOR I=19 TO 31 STEP 3 
CALL HCHAR(8,1,64) 
CALL HCHAR (8,1-1,120) 
NEXT I 
CALL HCHAR (13,19,64) 
CALL HCHAR (13,18, 120) 
CALL HCHAR (13,23, 64) 
CALL HCHAR (13, 22,120) 
CALL HCHAR (13,26, 64) 
CALL HCHAR (13,25, 120) 
CALL HCHAR (13,31,64) 
CALL HCHAR (13,30, 120) 
FOR I=21 TO 27 STEP 3 
CALL HCHAR (18,1,64) 
CALL HCHAR (18,1-1,120) 
NEXT I 
CALL HCHAR (14,A,59) 
CALL HCHAR (14,B,59) 
CALL HCHAR (9,R,59) 
CALL HCHAR (19,C,88) 
CALL HCHAR (D,E,?2) 
GOSUB 2870 
GOSUB 2910 





1100 


1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 


1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1511 
1512 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1.600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 


GOSUB 2950 


CALL HCHAR (X,Y,58) 
CALL KEY(0,K,S) 

IF S=0 THEN 1570 

IF K£>68 THEN 1220 
IF Y=32 THEN 1590 
CALL GCHAR (X,Y+1,M) 
IF M=0 THEN 1200 

IF M=40 THEN 1590 
CALL HCHAR (X,Y,32) 
YaY+l 

G0TO 1570 

IF K<>83 THEN 1310 
IF Y=1 THEN 1590 

IF (Y=7)#(X=14)THEN 143 


CALL GCHAR (X,Y-1,M) 
IF M=0 THEN 1260 

IF M=40 THEN 1590 
CALL HCHAR (X,Y,32) 
Y=Y-1 

GOTO 1570 

IF K<>69 THEN 1370 
CALL GCHAR(X-1,Y,M) 
IF M<>80 THEN 1590 
CALL HCHAR (X,Y,32) 
X=X-5 

GOTO 1570 

IF K<>88 THEN 1590 
CALL GCHAR (X+1,Y,M) 
IF M<>80 THEN 1590 
CALL HCHAR (X,Y, 32) 
X=X+5 

GOTO 1570 

IF N=0 THEN 1570 
FOR I=1 TO 3 

CALL SOUND (150, -1,6) 
NEXT I 

P=P+30 

GOSUB 2870 

F=F+6 

GOSUB 2910 

N=0 

U=U+1 

IF U=12 THEN 861 
CALL HCHAR (21,27,32) 
CALL HCHAR (14,6,120) 
CALL HCHAR (14,6,32) 
CALL HCHAR (15,5, 120) 
CALL HCHAR (15,5,32) 
CALL HCHAR (X,Y,58) 
CALL SOUND (20,600,6) 
IF K<>81 THEN 1660 
CALL GCHAR (X-1,Y,M) 
IF M<>120 THEN 1660 
CALL HCHAR (X-1,Y,32) 
CALL HCHAR (21,27,128) 
N=1 

CALL SOUND (50,2000,5) 
IF K<>46 THEN 1800 
IF Y=32 THEN 2120 
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1680 
1690 


1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
20680 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
22680 
2270 


CALL GCHAR (X, Y+1,M) 
IF M=40 THEN 2120 


IF M=32 THEN 1760 
CALL HCHAR (X, Y+1,106) 
F=sF-1 

CALL HCHAR (X,Y+1,32) 
GOTO 1930 

FsF-1 

CALL HCHAR (X, Y+1,106) 
FsF-1 

CALL HCHAR (X, Y+1,32) 
GOTO 2100 

IF K<>44 THEN 2120 
IF Y=1 THEN 2120 
CALL GCHAR (X,Y-1,M) 
IF M=40 THEN 2120 

IF M=32 THEN 1890 
CALL HCHAR (X,Y-1,107) 
F=F-1 

CALL HCHAR (X,Y-1,32) 
GOTO 1930 

CALL HCHAR (X,Y-1,107) 
FsF-1 

CALL HCHAR (X,Y-1,32) 
G0TO 2100 

IF X<>19 THEN 1970 
C=32 

CALL HCHAR (19,C,88) 
GOTO 2060 

IF X<>9 THEN 2010 
R=32 


CALL HCHAR (9,R,59) 
GOTO 2060 

IF Y<i6& THEN 2050 
B=32 

CALL HCHAR (14,B,59) 
GOTO 2060 

A=1 

CALL HCHAR (14,A,59) 
CALL SOUND(150,110,6) 
P=P+15 

GOSUB 2870 

GOSUB 2910 

IF F=0 THEN 2650 


IF x<>19 THEN 2220 
IF Y<C THEN 2170 
C=C+1 

CALL HCHAR(19,C-1,32) 
GOTO 2190 

C=c-1 

CALL HCHAR (19,C+1,32) 
CALL HCHAR (19,C,88) 
IF C=Y THEN 2650 
GOTO 1120 

IF x<>9 THEN 2500 

IF Y>R THEN 2270 
R=R-1 

CALL HCHAR (9,R+1,32) 
GOTO 2290 

R=R+1 





2280 
2290 
2300 
2310 
2320 
2330 


CALL HCHAR (9,R-1,32) 
CALL HCHAR (9,R,59) 

IF R=Y THEN 2650 

IF Y>E THEN 2380 

CALL GCHAR (D+1,E-1,M) 
IF (M=32)+(M=58)THEN 23 


40 ELSE 2440 


2340 
2350 
2360 
2370 
2380 
2390 


D=D+1 

E=E-1 

CALL HCHAR (D-1,E+1,32) 
GOTO 2470 

CALL GCHAR (D+1,E#+1,M) 
IF (M=32) +(M=58)THEN 24 


00 ELSE 2440 


2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2730 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 


D=D+1 
E=sE+1 

CALL HCHAR(D-1,E-1,32) 
GOTO 2470 

CALL HCHAR (D,E,32) 

D=4 

C=24 

CALL HCHAR (D,E,?2) 

IF (E=Y)X(D=X)THEN 2650 
GOTO 1120 

IF Y<16 THEN 2600 

IF Y<B THEN 2550 

B=B+1 

CALL HCHAR(14,B-1,32) 
GOTO 2570 

B=B-1 

CALL HCHAR(14,B+1,32) 
CALL HCHAR(14,B,59) 

IF B=Y THEN 2650 

GOTG 1120 

A=A+1 

CALL HCHAR(14,A-1,32) 
CALL HCHAR (14,A,59) 

IF A=Y THEN 2650 

GOTO 1120 

CALL HCHAR(X,Y,89) 

FOR 1=?0 TO 100 

CALL SOUND(10,210-1,5) 
NEXT I 

FOR I=1 TO 500 

CALL KEY(0,K,8) 

IF S<>0 THEN 2750 
NEXT I 

CALL CLEAR 

END 

CALL HCHAR(X,Y,32) 
CALL HCHAR(14,A,32) 
CALL HCHAR(14,B,32) 
CALL HCHAR (9,R,32) 
CALL HCHAR (19,C,32) 
CALL HCHAR (D,E,32) 
CALL HCHAR (21,27,32) 
CALL HCHAR(23,13,32,5) 
CALL HCHAR (24,13,32,5) 
IF P<=HP THEN 770 
HP=P 

G60TO 770 


2870 U$="score>"R5STRE(P)&" 


2880 V=23 

2890 W=& 

2900 GOTQ 2980 

2910 Us="suords>"RSTREIF)R" 
2920 v=24 

2930 W=5 

29740 GOTO 2980 

2950 U$="highscore?"&STR$ (HF 
Yu" U} 

2960 v=22 

2970 W=2 


2980 FOR I=1 TO LEN{US) 
2990 Z=ASC(SEG$(U$,1,1)) 
3000 CALL HCHAR (V,W,2) 
3010 Weu+l 

3020 NEXT I 

3030 RETURN 


BÖRSE 


Verkaufe Module, Disketten, Kassetten für TI. 
Pochner, Brunhildstr. 31, 5300 Bonn 2 

Achtung: TI-User!! Suche Kontakt zu anderen 
Usern zum Austasuch von Tips und Programmen. 
Suche auch Sports. und Flugsimulationen in X 
Basic. Preis auf Vereinbarung. Ingo Lachner, Wil.- 
Raabe-Str. 29, 851 Fürth/Bay. (PS ohne 32K) 
Verkaufe TI-I99/4A+Ext. Basic + Recorder + Joy- 
stick + Joy. Adapt. + 100 Progr. (z.B. Q-Bert) 

+3 Bücher + Alligator Mix + Ect. Ba. Lernpro- 
gramm + 4 TI-Revue + 1 TI-Speciai für nur 500,— 
Tel. 09741/36 54 

Original TI-Kass. (Adventure) Voodoo Castle — 
Adventureland — The golden Voyage — Thost 
Town — Savage Island Series — je DM 24,— 

ExB: Sortierprogramm SORT 500 in deutsch 
Orig. Kass. DM 25,—. Krummrey, Lipschitzallee 
71, 1000 Berlin 47 

Verk. Buchungsjournal 150,—, TI-Basic Tutor 
(Cass.) 10,—, Rechnungsstellung, Lagerverwal- 
tung je 80,— Modul Statistik 40,—, Datenverw. 

+ Anal. 75,—, Vokabeltrainer (Cass.) 10,— Connect 
Four (Mod.) 20,—. Tel. 0711/71 92 67, R. Unruh 
Verk. 32k-Ext. durchgef. Bus + Centron, Sprach- 
synthes. Extended Basic Modul, versch. Spiel 
Module, Literatur. Angebote ab 20 Uhr. Tel. 
0211/733 26 76 





Tausche Centronics-Interface gegen RS232-Inter- 
face. Sind Sie interesiert? Dann rufen Sie mich 
doch an: 0201/53 06 87 

TI 99 4A komplettes Symste: Box, Disk, 32K, 
RS, Speech, Drucker, XB, E/A, MM, TE II und vie- 
les mehr! Software + Bücher satt! VB 2800,— 
09321 —4636 

Verkaufe: TI 99/4A + Exbasic + TI Joystics + 

32 K-CMOS Ramkarte + Rec. Kabel + deut. Ex- 
Basicanleitung. Preis: VS. Tel. 02871/66 38 





Soft-Plot 


Soft-Plot 
schnellen 
einfarbiger 
und mehrere Graphik- 
Funktionen erleichtern 
dabei die Arbeit. 

. Radier-Funktionen: 
löscht jeweils ein 4*4 
Dots großes Quadrat 
2. Vergrößern: 4-fache 


dient zur 
Erstellung 
Graphiken 


Vergrößerung des Zei- 
chens. 
3. Kreis-Funktion: Plot- 


tet Kreise mit beliebigen 
Radien. 

4. Linien-Funktion: Plot- 
tet eine Linie zwischen 
Anfangs- und Endpunkt. 
Gleichmäßige Punktever- 
teilung. 

5. Char-Funktion: Kopie- 
ren eines Zeichens, um 
freie Zeichen zu sparen. 
6. Lösch-Funktion: 
Löscht den Bildschirm 
und setzt alle Zeichen 
wieder auf „O0“. 

7. Ausdruck: Programm 
Ende. Ausdruck des 
Hexcodes sowie der Posi- 
tion D. Zeichen. 

Ist der Zeichenvorrat er- 
schöpft, kann man in den 
gesetzten Zeichen nach- 
plotten. 
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Das Programm erklärt 


sich im wesentlichen 
selbst — will man die Er- 
klärung jedoch weglassen, 
sind folgende Zeilen zu 
löschen: 

> 220 

> 240 

> 1550 bis Ende 


> 170 — Einleitung. 

> 300 — Bildschirm Auf- 
bau 

> 450 — Option: Vergrö- 
Bern 

> 510 — Option: Radie- 
ren 

> 610 — Option: Linien 
ziehen. 

> 630 — Option: Kreise 
zeichnen 

> 730 — Option: Zei- 
chen plazieren 

> 760 — Unterprogramm 
Linie 

> 900 — Unterprogramm 
Plotten 

> 1170 — Steuerung des 
Zeichenstiftes. 

> 1230 — Wahl der Op- 
tionen 

> 1420 — Anzeige der 
Anzahl freier Zeichen 

> 1490 — Ausdruck der 
Zeichen und Programm- 
ende. 

> 1550 — Erklärung des 
Programms 


> 1710 — Textdaten der 
Erklärung 


3x3 Matrix 


Habt Ihr schon mal nei- 
disch auf andere Compu- 
tersysteme geschaut, in 
deren Betriebssprache so- 
gar Matrizenbefehle inte- 


griert sind? 

Für einen einfachen 
Befehl in der Text- 
verarbeitung, z.B. 100 


MAT A=RxS, müßt Ihr in 
TI- oder Ext.-Basic schon 
ein ganzes Programm 
schreiben, andere Befehle 
wie MAT READ, MAT 
INPUT usw. sind eben- 
falls nur sehr umständ- 
lich in die Sprache des 
TI99 zu übersetzen. Mit 
diesem Programm wol- 
len wir Euch zeigen, 
wie Ihr Euch MAT-Be- 
fehle für Euren TI schrei- 
ben könnt. Es kann 3 
MAT-Statements in Ver- 
bindung mit einer 3x3 
Matrix realisieren. 
1.) MAT A=BxC, 2. MAT 
A=B+C 3.) MAT A=INV 
(B). 
In die Felder der Ma- 
trizen dürft Ihr allerdings 
nur bis zu 3-stellige Zah- 
len (incl. Nachkomma- 
trennzeichen) eingeben. 
Dabei müßt Ihr darauf 
achten, daß das Ergebnis 
höchstens vier Stellen be- 
sitzt, sonst liefert Euch 
der Computer nur Stern- 
chen. 

Ein Menü führt Euch 
durch das Programm. 

Habt Ihr etwas 
Ahnung von Matrixopera- 
tionen, so seht Euch die- 
ses Listing genau an. 
Wenn Ihr das Prinzip ver- 
standen habt, dürfte es 
Euch eigentlich nicht 
schwer fallen, das Pro- 
gramm beliebig zu erwei- 
tern. Neidische Blicke auf 
andere Systeme gehören 
damit der Vergangenheit 
an. 


Chr. Villwock 


100 KRRRKRKRKRKKKRKKRKKRKTTKTK 


ı 
110 1% * 
120 !ı * 3X3 Matrix * 
130 ! * Copyright by * 
140 ! % Christian Villwock * 
150! * * 
160 ! * Bearbeitet vom * 
1701 % Team des * 
180 ! * Aktuell Verlages * 
190 ! %* Muenchen * 
200 ! %* * 
210 ! %* Benoetigte Geraete * 
220 ! %* TIP9/4A Konsole * 
230 !* Ext. Basic * 
240 ! %* * 
270 ! % Speicherbelegung *% 
260 ! * 6756 Bytes * 
ZIO 1! KRRRKRKRKKRRRRRKKKKKRNNNH 
295 ! 


300 CALL CLEAR :: CALL SCREE 
N{2):: ON WARNING NEXT :: ON 
BREAK NEXT 

310 FOR I=1 TO 13 :: CALL CO 
LOR(1,16,1):: NEXT I 

320 CALL CHAR(120, "3C4299A1A 
1994230") 

330 CALL COLOR(14,9,9) 

340 R=3 

350 M$="x 1984" 

360 GOSUB 660 

370 R=5 

380 M$="PROGRAMM VON" 

390 GOSUB 660 

400 R=? 

410 M$="CHRISTIAN VILLWOCK" 

420 GOSUB 660 

430 R=9 

440 M$="-------------------- 
—_N 

450 GOSUB 660 

460 R=10 

470 M="3%*3MATRIZE 
N" 

480 GOSUB 660 

490 R=il 

500 MS="-------------------- 


510 GOSUB 660 

520 R=13 

530 M$="FUER" 

540 GOSUB 650 

550 R=15 

560 M$="TI REVUE LESER" 
370 GOSUB 660 

580 R=1? 

590 M$="UND " 

600 GOSUB 660 

610 R=19 

620 M$S="ALLE ANDEREN" 
630 GOSUB 460 


640 FOR I=1 TO 1000 :: NEXT 


3 


650 GOTO 720 

660 C=16-LEN(M$) /2 

670 FOR I=1 TO LEN(MS$) 

680 CALL HCHAR(R,C+I1,136) 
690 CALL HCHAR (R,C+I,ASC(SEG 
$(M$,1,1))) 

700 NEXT I 

710 RETURN 

720 CALL CLEAR :: CALL SCREE 
N(4) 

730 FOR I=1 TO 14 :: CALL CO 
LOR(1,2,1):: NEXT I 

740 ! UMKEHRMATRIX 

750 DEF AC=(A22%A33) - (A32%A2 
3) 

760 DEF BC=(-1)%1 (A21%A33) -( 
A31X%A23) ) 

770 DEF CB=(A21%A32) - (A31%A2 
2) 

780 DEF DC=(-1)%((A12%A33) -( 
A32XA13)) 

790 DEF EC=(A11XA33) - (A31%A1 
3) 

800 DEF FC=(-1)#((A1l1%A32) -( 
A31XA12)) 

810 DEF GC=(A12%A23) - (A22%A1 
3) 

820 DEF HC=(-1)#((A11%A23) -( 
AZ1XA13)) 

830 DEF IC=(Al1XA22) - (A21%A1 
2) 

840 DEF DET=(A11XA22X%A33) +(A 
12XA23XA31) +(AZ1XA32XA13) - (A 
13XA22%A31) -(A11XA23%A32) - (A 
334A12%A21) 

850 ! MULTIPLIKATION 

860 DEF AA=(Al1X%Bl1)+(A12%B2 
1)+(A134B31) 

870 DEF BB=(A1l1%B12) +(A12%B2 
2)+(A13%B32) 

880 DEF CC=(Al1X%B13) +(A12%B2 
3) +(A13%B33) 

890 DEF DD=(AZ21%B11)+(A22%B2 
1)+(A23%B31) 

300 DEF EE=(A21%B12) +(A22%B2 
2)+(A23%B32) 

910 DEF FF=(A21%B13) +(A22%B2 
3) +(A23%B33) 

920 DEF G6G=(A31%B11)+(A32%B2 
1)+(A334B31) 

930 DEF HH=(A31%B12) +(A32%B2 
2) +(A33%B32) 

940 DEF 11=(A31%B13) +(A32%B2 
3) +(A33%B33) 

950 ! ADDITION 

960 DEF AB=Aii+Bil 

970 DEF BA=A12+B12 

980 DEF CA=A13+B13 

990 DEF DA=A21+B21 


1000 
1010 
1020 
1030 


DEF EA=A22+B22 

DEF FA=A23+B23 

DEF GA=A31+B31 

DEF HA=A32+B32 

1040 DEF IA=A33+B33 

1050 ! ZEICHEN FUER TABELLE 

1060 CALL CHAR (100, "000000FF 
FF", 101, "030303030303FFFF",1 
02, "000000000000FFFF",104, "0 
303037F?F030303" ,103,RPT$("0 
3",89) 

1070 CALL CHAR(105, "18181818 
1S1SFFFF", 106, "181818FFFF181 
818",107,RPTE("18",8)) 

1080 CALL COLOR(9,2,1,10,2,1 
) 


1090 ! MENUE 
1100 CALL CLEAR :: CALL SCRE 
EN(4) 


41110 DISPLAY AT(5,8):"3%3 MA 
TRIZEN" 
1120 DISPLAY AT(7,6):" 


1130 DISPLAY AT(9,7):"PROGRA 

MMWAHL ;" 

1140 DISPLAY AT(11,7):"1 => 

MULTIPLIKATION" 

1150 DISPLAY AT(13,7):"2 => 

ADDITION" 

1160 DISPLAY AT(15,7):"3 => 

UMKEHRMATRIX" 

1170 DISPLAY AT(17,7):"4 =) 

ENDE" 

1180 DISPLAY AT(20,7):"BITTE 
WAEHLEN SIE :" 

1190 ACCEFT AT(22,7)VALIDATE 
("1234")BEEP SIZE(1): WAHL 
1200 IF WAHL=i THEN 1240 ELS 
E IF WAHL=2 THEN 1240 ELSE I 
F WAHL=3 THEN 1240 ELSE IF W 
AHL=4 THEN 2590 

1210 GOTO 1190 

1220 ! ABFRAGE Mi 

1230 xYZ=1 

1240 GOSUB 2040 

1250 CALL SCREEN (6) 

1260 DISPLAY AT(3,7):"19..1. 
ıKır2roKı 3. ıK" 

1270 ACCEPT AT(6,10)VALIDATE 
(NUMERIC)BEEP SIZE(3): All 
1280 ACCEPT AT(6,16)VALIDATE 
(NUMERIC)ISIZE(3):A12 

1290 ACCEPT AT(6,22)VALIDATE 
{NUMERIC)SIZE(3):A13 

1300 ACCEPT AT(9,10)VALIDATE 
{NUMERIC)BEEP SIZE(3):A21 
1310 ACCEPT AT(9,16)VALIDATE 
{NUMERIC)SIZE(3):A22 

1320 ACCEPT AT(9,22)VALIDATE 
{NUMERIC)SIZE (3) :A23 

1330 ACCEPT AT(12,10)VALIDAT 
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E(NUMERIC)BEEP SIZE(3):A31 
1340 ACCEPT AT(12,16)VALIDAT 
E(NUMERIC)ISIZE (3) :A32 


1350 ACCEFT AT(12,22)VALIDAT 
E(NUMERIC)ISIZE (3) :A33 

1360 XYZ=1 

1370 GOSUB 26820 

1380 IF WAHL=3 THEN 2180 
1390 CALL CLEAR 

1400 ! ABFRAGE M2 

1410 xXYZ=2 

1420 GOSUB 2040 

1430 DISPLAY AT(3,7):"29..1. 
ekı.2.cKkı.3..K" 


1440 ACCEPT AT(6,10)VALIDATE 
(NUMERIC)IBEEP SIZE(3):Bil 
1450 ACCEPT AT(6,16)VALIDATE 
(NUMERIC)ISIZE(3):B12 

1460 ACCEPT AT(6,22)VALIDATE 
(NUMERIC)ISIZE(3):B13 

1470 ACCEPT AT(9,10)VALIDATE 
{(NUMERIC)BEEP SIZE(3):B21 
1480 ACCEPT AT(9,16)VALIDATE 
(NUMERIC)SIZE(3):B22 

1490 ACCEPT AT(9,22)VALIDATE 
(NUMERIC)SIZE (3) :B23 

1500 ACCEPT AT(12,10)VALIDAT 
E(NUMERIC)BEEP SIZE(3):B31 
1510 ACCEPT AT(12,16)VALIDAT 
E(NUMERIC)ISIZE (3):B32 

1520 ACCEPT AT(12,22)VALIDAT 
E(NUMERIC)SIZE (3):B33 

1530 IF WAHL=1 OR WAHL=2 THE 
N GOSUB 2820 

1540 IF WAHL=1 THEN 1560 ELS 
E IF WAHL=2 THEN 1740 

1550 ! MULTIPLIKATION 

1560 GOSUB 2040 

1570 DISPLAY AT(3,5):"1%29.. 
Il. .Kkı 22. ıKkı..3..K" 

1580 DISPLAY AT(15,8):"MULTI 


PLIKATION !" 

1590 DISPLAY AT(6,9):USING " 

HHHH":SAA 

16800 DISPLAY AT(6,15):USING 
"HHHR":BB 

1610 DISPLAY AT(6,21):USING 
"AHHH":BB 

1620 DISPLAY AT(9,9):USING " 

AHHH":DD 

1630 DISPLAY AT(9,15):USING 
"Hann"sEE 

1640 DISPLAY AT(9,21):USING 
"ARHR":FF 

1650 DISPLAY AT(12,9):USING 
"ARHH":GG 

1660 DISPLAY AT(12,15):USING 
"HHRR"SHH 

1670 DISPLAY AT(12,21):USING 
"HHRR"SII 





1680 GOSUB 2690 

1690 GOSUB 1900 

1700 CALL KEY(0,K,8):: 
0 THEN 1700 ELSE 1080 
1710 GOTO 1700 

1720 ! ADDITION 

1730 GOSUB 2040 

1740 DISPLAY AT(6,9):USING " 
AHHH":AB 

1750 DISPLAY AT(3,5):"1+29.. 
l2ck2.2. ck. .3..K" 

1760 DISPLAY AT(15,11):"ADDI 


IF $S= 


TION !* 

1770 DISPLAY AT(6,15) USING 

"Hark": BA 

1780 DISPLAY AT(6,21):USING 

"HHRR"ECA 

1790 DISPLAY AT(9,9):USING " 

HRRR":DA 

1800 DISPLAY AT(9,15):USING 

"HHRR"SEA 

1810 DISPLAY AT(9,21):USING 

"HRHR":SFA 

1820 DISPLAY AT(12,9):USING 

"HHRR"SGA 

1830 DISPLAY AT(12,15):USING 
"HRHR"SHA 

1840 DISPLAY AT(12,21):USING 
"ARRR"SIA 


1850 GOSUB 2690 

1860 GOSUB 1900 

1870 CALL KEY(0,K,S):: 

0 THEN 1870 ELSE 1080 
1880 GOTO 1870 

1890 ! DARSTELLUNG Mi U. 
1900 DISPLAY AT(17,2):Ali 
DISPLAY AT(17,6):A12 
1910 DISPLAY AT(17,10):A13 : 
: DISPLAY AT(19,2):A21 

1920 DISPLAY AT(19,6):A22 : 
DISPLAY AT(19,10):A23 
1930 DISPLAY AT(21,2):A31 :: 
DISPLAY AT(21,6):A32 

1940 DISPLAY AT(21,10):A33 : 
: DISPLAY AT(17,17):Bil 
1950 DISPLAY AT(17,21):B12 
: DISPLAY AT(17,25):B13 
1960 DISPLAY AT(19,17):B21 
: DISPLAY AT(19,21):B22 
1970 DISPLAY AT(19,25):B23 : 
: DISPLAY AT(21,17):B31 

1980 DISPLAY AT(21,21):B32 : 
ı DISPLAY AT(21,25):B33 

1990 IF WAHL=1 THEN CALL HCH 
AR(19,17,42) 

2000 IF WAHL=2 THEN CALL HCH 
AR(19,17,43) 

2010 DISPLAY AT(24,2):"<< TA 
STE DRUECKEN >> " 

2020 ! ZEICHNEN DER TABELLE 

2030 RETURN 


IF $= 


M2 


24 


2040 CALL CLEAR 
2050 DISPLAY AT(3,8):"9..1.. 
ee 


2060 DISPLAY AT(4,7):"feffff 
sisserriserrri" 


2070 DISPLAY AT(5,8):"9..... 
Krosschkssen.k" 

2080 DISPLAY AT(6,?):"Ih.... 
I RUEIDER OROIESEN 5 

2090 DISPLAY AT(7,8):"gddddd 
jdddddjdddddj" 

2100 DISPLAY AT(8,89):"g9..:.» 
EEE 

2110 DISPLAY AT(9,7):"2h.... 
PR RER, 

2120 DISPLAY AT(10,8):"gdddd 
djdddddjdddddj" 

2130 DISPLAY AT(11,9:"9.:.. 
RT Re ER 

2140 DISPLAY AT(12,7):"3h... 
EI en REN 

2150 DISPLAY AT(13,8):"gdddd 
djdddddjdddddj" 

2160 RETURN 

2170 ! UMKEHRMATRIX 

2180 GOSUB 2040 

2190 DISPLAY AT(15,7):"UMKEH 
RMATRIX !" 

2200 DISPLAY AT(17,6):"DIE D 
ETERMINANTE LAUTET :" 

2210 DISPLAY AT(19,10):DET 
2220 IF DET=0 THEN 2560 
2230 DISPLAY AT(3,7):"Tg9..1. 
kurse 

2240 DISPLAY AT(6,9):USING " 


HAHH":SAC 

2250 DISPLAY AT(6,15):USING 
"HRAR"SBC 

2260 DISPLAY AT(6,21):USING 
"HRHH":SCB 

2270 DISPLAY AT(9,9):USING " 

AHHR":SDC 

2280 DISPLAY AT(9,15):USING 
"HRHR"SEC 

2290 DISPLAY AT(9,21):USING 
"HRHR":SFC 

2300 DISPLAY AT(12,9):USING 
"HHRR":GC 

2310 DISPLAY AT(12,15):USING 
"HARR":SHC 

2320 DISPLAY AT(12,21):USING 
"HARR":SIC 


2330 GOSUB 2690 

2340 DISPLAY AT(24,2):"TASTE 
DRUECKEN FUER UMKEHR. " 

2350 CALL KEY(0,K,S):: 
0 THEN 2350 ELSE 2380 

2360 GOTO 2350 

2370 ! SPIEGELUNG 

2380 GOSUB 2040 


IF S= 


2390 DISPLAY AT(3,8):" 
k. Pily APBFe ’ ArrIcc \EBRR 2.0 

2400 DISPLAY AT(6,9):USING " 
RHAR":AC 

2410 DISPLAY AT(6,15):USING 
"HRRR":DC 


2420 DISPLAY AT(6,21):USING 

ARAH"IGC 

2430 DISPLAY AT(9,9):USING * 

HRAH":BC 

2440 DISPLAY AT(9,15):USING 
"ARHR"SEC 

2450 DISPLAY AT(9,21) :USING 
"HAHR" SHE 

2460 DISPLAY AT(12,9) :USING 
"HARN":CB 

2470 DISPLAY AT(12,15) :USING 
TTTUR Te 

2480 DISPLAY AT(12,21):USING 
"AAHR":Ic 

2490 GOSUB 2690 

2500 DISPLAY AT(15,7): 

RMATRIX !* 

2510 DISPLAY AT(17,9):"DETER 

MINANTE :" 

2520 DISPLAY AT(19,10):DET 

2530 DISPLAY AT(24,2):"<< TA 

STE DRUECKEN >>" 

2540 CALL KEY(0,K,S):: IF $= 

0 THEN 2540 ELSE 1100 

2550 GOTO 2540 

2560 DISPLAY AT(21,2):"DIE D 

ETERMINANTE IST UNGUEL-TIG, 

DA 0=0," 

2570 GOTO 2230 

2580 ! ENDE 

2590 CALL CLEAR 

2600 DISPLAY AT(9,5):"BIS ZU 

M NAECHSTEN MAL." 

2610 END 

2620 DISPLAY AT(24,2):"KORRI 

GIEREN <J> <N>" 

2630 CALL KEY(0,K,S):: IF $= 

0 THEN 2630 

2640 IF K=78 OR K=110 THEN 2 

680 

2650 IF K=74 OR K=106 THEN 2 

660 ELSE 2670 

2660 IF XYZ=1 THEN 1220 ELSE 
IF XYZ=2 THEN 1400 

2670 GOTO 2630 

2680 RETURN 

2690 FOR I=6 TO 12 STEP 3 :: 
CALL VCHAR(1,10,104):: CALL 
VCHAR (1,16,107):: CALL VCHA 

R(1,22,107):: CALL VCHAR(I,2 

8,107):: NEXT I 

2700 RETURN 


Yııl.r 


"UMKEH 


100 KRRRRRRRRRTRKRITTTTTR RE 


! 

110 !' x 

120 ! x »SCFT-PLOT< * 
130 ! y x 
140 ! x Copyright b: % 
150 1% pyrig F - 
160 ! x Kay Sievert % 
170 ! y% * 
180 ! x N 
190 ! % Benoetigte Geraete # 
200 ! % 7199/44 Konscle % 
210 ! y Ext. Basic * 
220 ! y Joystick (1) * 
230 ! y x 
260 ! x Speicherbelegung * 
270 !% 11264 Bytes x 
280 ! a x 
290 ! ERREICHTEN NE 
300 6oTo" 370 :: CALL CLEAR : 
: CALL SCREEN :: CALL KEY :: 
CALL JOYST :: CALL LOCATE : 
: CALL MAGNIFY :: CALL SPRIT 
E :: CALL SOUND :: CALL COLO 
R :: CALL HCHAR :: CALL VCHA 
R :: CALL GCHAR :: CALL DELS 
FRITE 
310 CALL CHARPAT :: CALL CHA 
RSET :: CALL FATTERN 


320 DIM 22110) ,CHBLL0N) 
330 A:: B:: C:: D::E 


F:: Hs: IT:E Kos: Lo: 

:: N: 0:20:78 :: U: 
Vası Wiss: Yo: PR >: PR 
S 22 NR 2: NC 5: CN 3: ROW: 
: COL :: RA 33 CA 
340 CX :: CY 32 CxM 22 CYM ı: 
» Dix :: DZX :: DiIY :: D2V 
ERS 3: VS 3: RIS 5: YIS 5 
MA 2: MB :: RAD :: ST :: FC 
350 x#$ :: Y$ :: C$ 
360 !Er- 


370 CALL CLEAR :: CALL MAGNI 
FYi2) 

380 CALL SPRITE(#1,82,5,49,7? 
0,#2,79,5,49,86,#3,70,5,49,1 
02,#4,34,5,49,116) 

390 CALL SPRITE(#5,80,5,70,1 
00,#6,76,5,70,116,#7,79,5,70 
‚132,#8,84,5,70,148) 

400 %$="% {0)1985 by 
EUVERT X" 

410 FOR I=1 TO 2? :: CALL HC 
HAR (20, 2+1,ASC (SEG$ (X$,1,1)) 
)2: CALL SOUND(-25,830,9):: 
NEXT 

420 DISPLAY AT(24,4): "ERKLAE 
RUNGS ?(J/NIEN""I: ACCEPT AT( 
24, 22)VALIDATE("IN")SIZEI-1) 
ıN$ 

430 DISPLAY AT(24,2):"LALPHA 
LOCKI-TASTE LOESEN !" :: CA 


KAY SI 


LL S0OUND(1000,110,10):: FOR 
I=1 T3 500 :: NEAT I 

440 IF x$="J" THEN A=sl :: 60 
Ta 450 

450 CALL DELSPRITE(ALL)I:SS CA 
LL MAGNIFYilI:S CALL CLEAR 
460 FOR I!=0 TO 9 :: CALL CHA 


RPAT(48+1,38):: 
NEXT I 

470 C$="G0000001001000110100 
O10101410G1111000100110101011 


Z$(I)=X 


1190110111101111" 

480 W,F=1 :: PR,PRS=4 :: NR= 
44 2: P0=2.5 

490 !%X%X%%% BILDSCHIRM XXK%%% 


500 CALL SCREEN(1D:: 
HAR (1,1,31,768) 

510 :2P+ 

520 CALL CHAR (32, "00C0000000 
OO0OFF",33, "0O101010101010101 
"34,"FF",35,"803030980808030 
30") 

530 CALL CHAR (36, "02070E1C38 
70602" ,37, "O40E1F3E7CF8702", 
38, "FFS181813813181FF",39, "FF 
C7BBEFEFBFEBC?") 

540 CALL CHAR (40, "3042818181 
814230" ,41, "AASSAASSAASSAASS 
"42, "FOFOFOFO") 

550 !@P- 

560 CALL HCHAR(1,3,32,28):: 
CALL HCHAR(23,3,34,28):: CAL 
L VCHAR (2,2,33,21):: CALL VC 
HAR (2,27,33,21) 

570 CALL VCHAR(2,31,35,21):: 
FOR I=5 TO 20 STEP 3 :: CAL 
L HCHAR(1,28,34,3):: NEXT I 

580 CALL HCHAR(13,28,30) 


590 CALL HCHAR(3,29,37):: 
LL HCHAR (6,29,38):: CALL HCH 
AR(?7,29,40):: CALL HCHAR (12, 
29,34):: CALL HCHAR(15,29,37 


CALL HC 


SA 


800 CALL COLOR(O0,8,1):: FOR 


I=s1 TO 14 :: CALL COLOR(1,4, 
1):: NEXT I 

610 IF A=1 THEN 1760 

620 FOR 1=45 TO 143 :: CALL 
CHAR (I1,"0"):: NEXT I :: GOSU 
B 1840 

630 ROW,COL=89 :;: CALL SPRIT 


Ei#1,36,6,ROW-7,COL,#2,36,6, 

200,100) 

640 GOTO 1370 

650 !%%%% VERGROESSERN KX#%%* 

660 CALL GCHAR(INT(ROW/8),IN 

T(COL/8)+1,V):: IF V=31 THEN 
1370 

670 CALL CHARPAT (V,X$) 

680 CALL CHAR (41,%%) 


26 


690 CALL SPRITE(#3,41,15,157 
‚221):: CALL MAGNIFY(2) 

700 CALL KEY(1,9,53:: IF <> 
18 OR 3=-1 THEN. 700 ELSE CAL 
L MAGNIFY(1):: CALL SPRITE(# 
1,38,6,ROW-7,COL):: G0T0 137 
() 


710 !'XX%k RADIEREN Krk 
720 U=ROW/8 :: V=COL/8 
730 IF U-INT(L)>.5 THEN 
ELSE %=2 

740 IF YV-INT(V)>.5 THEN 
ELSE Y=2 

750 CALL SCHAR(U,V,@:: 
=31 THEN 1370 ELSE CALL 
PAT(Q,%$) 

760 IF %=1 AND Y=1 THEN X$=" 
O"RSEGS(X$,2, 1) K"O"RSEGS(NS, 
43, LIR"O"RSEGSI(XE,6, 1) K"O"RSE 
GE (%$,8,9):: SOTO 800 

770 IF X=1 AND Y=2 THEN xX$=3 
ESS (n$, 1,1) KTONLSESSIKS, 2,1) 
LTOTRSECS(XS,5,LIK"ONRSEGSIX 
3,7, 1)E"O"RSEBSI(XS,9,8):: GO 
TO 800 

780 IF x=2 AtiD Y=1 THEN %$=3 
EGSIX$,1,8)&"0"&SEG$ (X$, 10,1 
IKTONRSESS(KS, 12, LI KTO"RSEGE 
185,14, 1) TO" RSEGSINS, 16, 1): 
ı GOTO 300 

790 N$=SEG$ (X$,1,7)K"O"RSEG$ 
(XS, 11,1) RFO"RSEOSIHE,13,1)% 
nONLSEISINS, 15, 1IR"O" 
800 CXM,C'rM=0 CALL 


mtl 
n=a 


Yv=1 


IF& 
CHAR 


vnAR IS 


‚x$)ı: GOTO 1370 

BIO IXRRRK LINIE KRRKKK 
820 IF W=1 THEN A=ROW :: E=c 
OL :: W=2 :: GCTO 1370 ELSE 


IF W=2 THEN W=i SALL LCCA 


TE(#2,ROW-?7,COL): 5 C=ROW ©: 
D=C6L :: SOTO 970 

830 !:X%%%%* KREIS xKRRRRXX 
840 IF W=i THEN A=ROW :: B=C 
OL :: W=2 :: GOTO 1370 ELSE 
IF wW=2 THEN W=1 :: CALL LOSCA 
TEI#2,ROW -7,COL):: C=ROW 5: 


D=CCcL GOTO 850 

850 CALL LOCATE(#2,200, 100): 
® RAD=ABS(A-C):: U=sA :: V=B 
860 IF RAD>20 THEN D=i ELSE 
D=3 
870 
880 


FOR I=1 TO 350 STEP D 
A=U+INT(SIN(IXPI/1S0)XRA 


B=V+INT (COS(tIXP1/180)XRA 


900 IF MA=A AND MB=B THEN 92 
0 ELSE MA=A MB=B 

910 GOSUB 1100 

920 NEAT I 
GOTO 1370 


»s ROW=U :: COL=V 





930 :%%%% CHARPLATZ XXX * 
940 IF F=i THEN F=2 :: CALL 

GCHAR (FOW/8,COL/&8+1,H):: CAL 
L HCHAR (15,29,H):: GOTO 1370 
950 TALL GCHAR (RCW/8,COL/8+1 
‚e)s: ZF A=H THEN CALL HCHAR 
115,29,37):: F=1 ss: GOT0O 137 
C ELSE CALL HCHAR (ROW/8,COL/ 
8+1,H):5: GOTO 1370 


960 !%%% CALL ERAU KR 

970 U=D-B :: V=C-A 

980 DIX=SGN(V):: DiY=SGN(U) 

990 D2EX=0 :: D2Y=SGN(V) 

1000 M=AEStV):: N=ABE(U) 

1010 IF M>N THEN 10940 

1020 DZY=0O :: D2X=56N(U) 

1030 M=MAX(ABS(U) ,ABS(V)):: 

N=MIN(ABStU) ,ABS(V)) 

1040 S=INT(M/2):: FOR I=0O TO 
H 

GOSUB 1100 

S5=5+N 

1070 IF 5<M 

B=E+1l2%X :; 

1080 S=&-M :; 

+D1lY 

1090 NEXT I :: CTÄALL LOCATE(# 

2,200,100):: GOTO 1370 

I Ko [emmuE = = = = = = = 2 = 2 2 2 2.2 2 2 2 2 2 2.75 
XXX ı+FLOTTEN++ #R%R 
KKKKKKIRKKKKKRIIITTIT RR 
“S=B/8 ::5 XIS=INT(X8):: 

S-KIE)HB 2: IF XE=XIS T 


THEN A=sAtD2Y :: 
GGTO 1070 


A=A+tDiX :: B=B 


Von 0) 


+ mn > 


Lan Bu | Bu 2 


HER CH=cH-1 
1140 CY=XIS+1 :: IF 
HEN C’i/=tY-i 


1150 IF CY<3 GR CY:>2& THEN R 
ETURN 
1160 IF (CH=CHkH AND CY=CYM)}= 


-1 THEN 1210 

1170 CALL GCHAR(CK,CY,E) 
1180 IF E>S1 AND Ei36& THEN W 
=1 :: RETURN 

1190 IF E=31 THEN NR=NR+I :: 
E=sNR :: IF NR>143 THEN 1740 
ELSE GOSUB 1840 :: NC=NR :: 
CALL HCHAR (CH,CW,NCIELSE NC 
=E 

1200 CALL CHARPAT (NC,Y$) 
1210 CHN=CK :: CYM=CY 

1220 IF x<5 THEN YsY-1 

1230 A=ASCIZEGS(YE,Y,1))ıı I 


F 2>57 THEN 8=0-55 ELSE 6=9- 
45 
1240 Y$=SE0S(C$, 1+0%4,4) 


27 


1250 IF X>4 THEN X=x-4 

1260 ON } GOTO 1270,1290,12# 
0,1280 

1270 YS="1"RSEGE(NE,2,3):: 6 
OTQ 1300 

1230 X$=3EG$ (X$,1,9&"i" :: 
GITO 1300 

1290 X$=SEGS(%$,1,%X-1)R" "RS 
EGE (H$,X+1,4-X) 

1300 @=.5 :: L=0 :: FOR 0=4 
T0 1 ZTEP -1 :: IF SEGS(H$,O 
‚i}="i" THEN L=L+0%2 


1310 G=0%2 :: NEXT 0 
1320 IF L>9 THEN X$=CHR$(55+ 
LIELSE N$=CHR$(L+48) 
1330 Y$=SEG$ (Y$,1,Y-1) 
G$ (Y$,Y+i,16-Y) 
1340 CALL CHAR(NC,YS$) 
1350 RETURN 
13607 RRRERERRHRRRHHHHHHIHEN 
KRRX GRIFFEL KRRRRR 
1370 CALL KEY(0,0,8):: IF & 
>60 THEN CALL SOUND(-100,440, 
10):: CALL COLOR(0,6,1):: GO 
TO 1440 ELSE CALL: COLOR(A,3. 
S+PC,1):: FO=-PO 
1380 ST=PRS :: CALL JOYST(, 
x,Y):: CALL KEY(1,0,9):: IF 
{>18 THEN 1400 
1390 IF X<>0.OR Y<>0O THEN ST 
=,5 ELSE CALL SOUND (-100,880 
‚10):: ON PR G0T0 720,660,34 
0,820, 940 
1400 IF Y=4 AND ROW>20 THEN 
ROU=ROW-Y/ST ELSE IF Y=-4 AN 
D RaW<162 THEN ROW=ROW-Y/ST 
1410 IF %=-4 AND COL>28 THEN 
COL=COL+X/ST ELSE IF X=4 AN 
D COL<208 THEN COL=COL+X/5T 
1420 CALL LOCATE (#W, (ROW-7) + 


NERSE 


RA,COL+CAY:: GOTO 1370 
LA3SO TV RRRRRÄÜKIRKKRNKTTRIKT IR 
XXX sbtionern RKRRKX 


1440 RA,Ch=O 

1450 CALL KEY(O,K,S):: IF $= 

0 OR $=-1 THEN CALL COLOR(O, 
35,.5+P0O,1)5: PO=-PO :: 6010 1! 
450 

1460 X=6 :: IF K=101 THEN Y=- 
4 :ı GOTO 1406 ELSE IF K=120 
THEN Y=-4 :: GOTO 1400 ELSE 
Y=0 :: IF K=115 THEN X=-4 : 
; GCTO 1400 ELSE IF K=100 TH 

EN Xx=4 :: GOTO 1400 

1470 IF K=13 THEN CALL SCUND 
(-100,131,10,198,15):: G9T0 
1510 

1480 IF K{>32 THEN 1370 ELSE 
CALL HIHAR (PR%3+1,28,31}:: 
SALL LOCATE(#2,200,100):: CA 

Li HCHARi15,29,39)5: W,F=1 


1490 IF K=32 THEN PR=PR+1 :: 
IF FR:? THEN FRei 

1500 CALL HCHAR (PRX3+1,28,30 
)1: SCTO 1440 

1510 SN PR GOTO 1520, 1530,18 

40, 1350, 1560, 1570, 1600 

1520 GDSUB 1810 ROW=ROW +4 
:: COL=COL+4 :: CALL SPRITE 
(#1,42,8,ROW,CCL)I:: RA=3 :: 

SA=-4 :: PRS=1 GOTO 1370 

1530 GOSUB 1610 CALL PATT 

ERN (#1,39) :: PRS=.5 

GOTO 1370 


1540 CALL ZPRITE (#1,38,5,RüW 
-7,00L):3 PRS=4 :: G0TO 1370 
i550 CALL 3FRITEI#1,38,6,RüOW 
-7,C0L):: PR&=4 GOTO 1370 
1560 GOSUE 1610 :: CALL SPRI 
TE(#1,33,5,R3W,COL):: RA=- 
Lt FRS=.5 :: GOTO 1370 


1570 FÜR A=2 TO 22 FOR B= 
2 TO 26 


.s 
.. 
.s. 
.a 
.. 
.e 
.. 


RA=-i 


CäLL GCHAR(A,B,C! 
IF C=31 THEN 1570 ELSE IF 
C=NR+l THEN A=22 B=25 
S0TO 1590 
1580 CALL. CHARFAT(C,KS)G: 
SIC-44 ER /"RSTREIA)RK" - 
TR$(B) 
1590 HEXT BE :: 
0 1700 
1600 FÜR A=2 16 22 
CHAR (A, 3,31,249):: 
FOR A=45 TO 143 
(A,"Or)sz NEXT A 3: NR=44 
GOSUB 1640 :: GOTO 1440 
1610 ROÜW=INT(ROW/SIXBH+L :: C 
OÖL=INT(COL/S)#8+1 :: RETURN 
1620 !*X%%%*% CHAR ANZEIGE *%%%* 
1630 !%%% DISPLAY XiX%%* 
1640 IF LEN(STR$(143-NR))=2 
THEN 1660 
1650 CALL CHAR (43, 2$(1423-NR) 
)3:3 CN=31 :: GOTO 1680 
1660 X$=3TR$(143-NR):: CALL 
CHAR 144, Z$(ASCISEGS$(X$,1,1)) 
-48)} 
1670 CN=44 CALL CHAR (43,Z 
S(ASCISEGS(X$,2,1))-48)) 
1680 CALL HCHAR(18,30,43):: 
CALL HCHAR (13,29,CN!:: RETUR 
H 
1690 '&X#%% AUSDRUCKEN K%*%* 
1700 CALL THARSET CALL DE 
LZEPRITE(ALL):: ZALL CLEAR 
CALL SCREEN (8) 
1710 FOR I=1 TO 99 ::; 
I+445 CH$(1): : 


CH 
"Ks 


NEXT A :: 507 
»: CALL H 

NEXT A :: 

ss CALL CHAR 


PRINT 


1720 CALL KEY(0,K,S):; IF 5= 
O0 THEN 1720 
1730 NEXT I :: GOTO 1710 


28 


1740 F,W=1 3: NR=NR-1 :: CAL 
L LOCATE:#2,200, 100) 33: 60T 
1370 
1750 !*%%%* ERKLAERUNG x8%* 
1760 FÜR I=&5 TG ?0 :: CALL 
CHARPAT(I,Y8):: TALL CHARIUI+ 
S2,A$):: NEXT I FOR I=7? T 
3 12 3: CALL TOLCR(1,2,9):; 
NEXT 1 
1770 CALL CHAR(123, "00000402 
FF0204",125,"00000000FC",128 


A 
° 


.. 
.. 


„GW 
1780 TZALL SPRITE(#1,123,16,2 
00,205):: F=7,85 

1770 READ E,B :: IF E=1000 T 
HEN 1370 

1800 FOR A=1 TO B :: READC, 
$ 

1810 FOR I=1 TO LENiX$):: IF 


SEGS(X$,1,1}=" " THEN D=31 
ELSE D=ASC (SEGS(K$,I,1)) 
1820 CALL HCHAR(C,3+1,Di:: N 
EXT IT :: NEXT A CALL LOCA 
TE(#1,2,205) 

1830 DISPLAY AT(24,4) 

):RPTS{CHR$(31),20) 


SIZE(20 


1840 CALL KEY(O,K,3):: IF & 
>»0 THEN SOSUB 1880 :: GOTC A 
779 

1850 CALL COLOR i#1,3.5+P):: 
F=-F 


1850 FOR I=i TO 50 NEXT I 
ı: DISPLAY AT(24,3)SIIE(20) 
‚ "bitte samt itrastet,; !mt,tdr 
uecken" >: CALL COLOR (#1,3.5 
+F):: F=-F 
1870 FOR I=i TO 100 :; 
I :; SOTG 1830 
1880 FOR I=2 TO 22 
CHAR:i1,4,31,23):35 


NEXT 


.» CALL H 
NEXT I 5; 


RETURN 

1890 F=1 :: CALL DELSPRITE(H 
1):: FOR I=9 TO 12 :: CALL © 

CLOR(T,4,1):: NEXT I :: G0T0 
520 

1900 !&r+ 

1910 DATA 200,10,4,"2.2....50 
ft}plot",3,"soft!plot DIENT 

ZUR" ‚3, "EINFACHEN ERSTELLUNG 


",ı0, "EINFARBIGER GRAFPHIKEN. 


1920 DATA 12,"E3 KOENNEN INS 
GESAMM 'T",19,°99 Een =633 


4 DOTS",15, "GESETZT WERDEN. 
DANIT", 18, "SIE soft}plot SIN 
NVOLL" 


1930 DATA 20, "ANWENDEN, BEACH 
TEH SIE",22,"5ITTE FOLGENDE 

PUNKTE: " 

1740 DATA 200,10,3, "DURCH DR 
UECKEN VON",‚5,"space KOENNEN 





sIeE 


IE",?, "ZWISCHEN DEN VERSCH 
1E-",9,"DENEN OBTIONEN WAEHL 
EN.",11,"DRUECKEN VON enter" 
1950 DATA i2,"FIXIERT DIE GE 
WUENSCHTE" ‚15, "FUNKTION. DER 
BLINKENDE", 17, "CURSOR ZEIGT 
IHNEN, ",19, "WELCHE OPTION GE 
RADE" 
1960 DATA 
RD.” 

1970 DATA 200,10,3," 
fij:",S, 
DEE",?, 
Den" 


‚>, 
-*,31, 


21, "AUSGEFUEHRT WI 


js,stick 
"FUNKTWEISE BEWEGUNG 
"TZEICHENSTIFTES. UM 
"STIFT SCHNELLER ZU B 
"WEGEN, JOYSTICK IN DI 


Kit 1 


E 


1960 DATA 15, "SEWUENSCHTE RI 

CHTUNG -",15, "DANN button [= 

SCHUSS-",17, °KNOFF} DRUECKEN 

‚17°,"preiltasten: PUNKTWEI 

SE" 21, "BEWEGUNG DES STIFTES 
n 


1990 DATA 17,1C,3,"radieren: 
",5, "DURCH DRUECKEN DES”, 
button WIRD DAS 47’43",9,"LOT 

GFOESE QUADRAT",i1i, "UNTER DE 
M RADIERSUMNFHI” 

2000 DATA 13, "GELDOESECHT UND 

KANM", iS, "NUN NEU GEFLOTTET" 
‚17, "WERDEN. ",17, "RUECKSPRUH 
c ZUM NENULZI",21, "DURCH spaze 


. h 
“og 


v 
” 
2010 DATA 41,1C,3, "veraroess 
ern:",5,"DAS UNTER DEM QUADR 
nT",7,"LIESENDE ZEICHEN WIRD 
“.e "NACH ERVUECKEN DET BU-" 
1."TOoN IM UNTERSTEN” 
2020 on 13,"FELD VERSROESS 


ERT", LS, "DARGESTELLT. UM DAS 
a dar :AT WEITERBEWEGER" 
:?, "zu -CENNEN,DEN BUTTON", 


, NOCHMAL DRUECKEN. " 

2030 DATA 85,10,3,"kreis’tun 
ktion:",5, "BUTTON DRUECKEN,U 
M DEH",?,"MITTELPUNKT DES KR 
EISE2",9, "FESTZULEGEN ETIFT 

NAZH”",:2:ı, "OBEN!UNTEH BEWEGEN 
Ym" 

’ 

2040 DATA 13, "DEH RADIUS FES 
TZULEGEH.",15, "DEHN NOCHMAL 

DEN BUTTGH”",17, "DRUECKEN, UND 
DAS u "GRANM PLOTTET 
LEN",21,"GEWUENSCHTEN KREIS 

2050 ı 
ktion:”", 


_ 

. 

a 
Dr 


ST,10,7,"linie)fun 

‚"EUTTON DRUECKEN,U 
M ee nEnF, FUNKT FESTZULE 
GEN,",7,"DANN STIFT 2 ZUM EN 
D-",11,"PUNKT FUEHFREN UND DE 
N ” 
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2060 DATA 13, "BUTTON DRUECKE 
N.",1E,"laengeres HALTEN DES 
",17?,"BUTTON PLOTTET EINEN", 
ı35,"PUNKT. DIES WIRD DURCH", 
21,"2 TOZNE ANGEZEIGT." 

2070 DATA 113,19,3,"kopier)f 
unktion:",5, "DIENT ZUM SCHNE 
LLEN",S, "SETZEN VON GLEICHAR 
TI-*" „7, "GEN ZEICHEN.DAS GUAD 
RAT",@,"UEEER DAS ZEICHEN FÜ 
E-!" 

2080 DATA ?7,"HREN UND DURCH 

BUTTON”, 10, "SPEICHERN. DRUECK 
EN en KOPIERT E 


S NUN",i2,"AN JEDER GEWUENSC 
HTEN",13 ,"STELLE. zeichentöu 
sch: ”" 


2090 DATA 19, "ZEICHEN SETZEN 

- DANN",1S, "WIEDER BUTTON.N 
UN KANN",1&, "EIN NEUES ZEICH 
EH",17?, "AUFGENOMMEN WERDE!!. " 
‚438, "vaorsicht:WIRD EIN MEHR- 


2100 DATA 19, "FACH KGFIERTES 
ZEICHEN", ZO, "NACHGEFLOTTET, 


BEE Z21,"SICH DANIT AUCH 
ALLE®,22, "KOPIEN DES ZEICHE 
Ne 


2110 DATA 137,10,3, "zeichen! 
ausdruck:",5,"UM EINE GRAFHI 
K AUCH",?,"IN ANDEREN FROGSRA 
BMEN",9, "VERWENDEN ZU KGENNE 
N,",il,"KANN MAN Sich DEN" 
2120 LATA 12, "CHARAKTERCCDE 
UND DZ Eh DER ZE 
ICHEN",27,"MIT space AUTLIST 
EN .", :5, "DAMIT IET DAZ FROG 
RAHM" DE, "JEDOCH beende 
2130 TATA 1&81,7,3, "lceschirü 
nktior::",5,"MIT DIESER GETIO 
H”,?7,’KIEHNEN SIE DEN BILD-" 
7, "SCHIRM LOESCHEN. DER" 
2130 DATA 11, "ZEICHENVORRAT 
STEHT" ‚12, "DANNACH WIEDER vo 
11",1E, "ZUR VERFIEGUNG. " 
2150 ZATA 200,9,5," -ZUM SCH 
LUES EIN TIF-",?7, "MACHEN SIE 
SICH SCHRITT",9,"FUER SCHRZ 
TT MIT DEH",11,"FUHRRTIONEN D 
Ez FRO-",17,"GRAMMS VERTRAUT 
‚„Lentst 
2160 DATA 15,"MUR 55 WERDEN 
SIE DEN",17, "OPTIMALEN HUTIE 
N AUS",17,"DEM FRÜSRAMM ZIEH 
EN.",22,".2.2...viel-spass" 
DATA 1C50,1000 


ACHTUNG! 


Ee 
-; 


2170 
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SERVICE 








MATHE 





TABELLEN 





Tabellenberech- 
nung 


Nach Erscheinen des Ti- 
telbilds wird nach dem 
Tagesdatum sowie der 
Benutzung eines Druk- 
kers gefragt. Hier besteht 
die Möglichkeit, bei seriel- 
len Druckern die Bezeich- 
nung RS232 ... (weitere 
Bez. je nach Typ), oder 
bei parallelen Druckern 
die Bezeichnung PIO ... 
(weitere Bez.jenach Typ) 
anzugeben. 

Im Menue sind folgen- 
de Optionen vorgesehen: 
— Arbeitsblatt — Daten 
einlesen — Hardcopy — 
Daten speichern — Be- 
rechnung nach Formeln 
— Help-Funktion 

Hier wird auch die Da- 
teibezeichnung sowie das 
bei Eröffnung eingegebe- 
ne Tagesdatum angezeigt. 

Arbeitsblatt: Es kön- 
nen max. 10 Textbe- 
zeichnungen sowie 10 
Werte erfaßt werden. 
Sollte ein Wert nicht un- 
mittelbar unter den näch- 
sten geschrieben werden, 
so ist in dieser Wert- 
Spalte, die übersprungen 
werden soll, eine ,0“ 
(Null) einzugeben. Wenn 
dies nicht geschieht, wer- 
den die nachfolgenden 
Werte nicht bearbeitet 
bzw. berücksichtigt. 


Bei Text ist dies uner- 
heblich. 

Am unteren Bild- 
schirmende wird die Ge- 
samtsumme ausgeworfen. 
Außerdem wird während 
des Dialogs permanent 
die Möglichkeit der wei- 
teren Vorgehensweise an- 
gezeigt. 

Es können jederzeit 
Änderungen im Text oder 
im Wertbereich vorge- 
nommen werden. Nach 
Eingabe bzw. Änderung 
können Texte und Werte 
(der  Übersichtlichkeit 
halber) mit der Funktion 
„I“ tabellarisch aufge- 
listet werden. 

Mit Funktion „P“ wer- 
den die eingegebenen 
Werte prozentual pro Po- 
sition ausgewertet. Diese 
können wiederum mit 
der Funktion „G“ gra- 


phisch dargestellt wer- 
den. 
Hierbei werden aller- 


dings nur die positiven 
Werte angezeigt (+ Be- 
träge). Durch nochmali- 
ges Drücken der Taste 
„t“ wird wieder die Ta- 
belle aufgelistet. 
Funktion „C“ steht für 
Hardcopy, die ebenfalls 
im Arbeitsblatt möglich 
ist. Graphikausdruck ist 
allerdings auf Grund der 
begrenzten Speicherkapa- 
zität nicht vorgesehen. 
Die Funktion ,„F“ er- 
möglicht die Berechnung 


nach Formeln (bereits in- 
tegriert). 

Durch Drücken der. Ta- 
ste „M“ wird der Mittel- 
wert der eingegebenen 
Werte ausgeworfen. 

Daten einlesen: Es 
können mit diesem Pro- 
gramm bereits erstellte 
Daten eingelesen und be- 
arbeitet werden. Der bei 
der Eröffnung angegebe- 
ne Dateiname sowie das 
Tagesdatum wird mit 
dem Einspielen der neuen 
Datei automatisch über- 
schrieben und auf neuen 
Stand gebracht. Nach Be- 
endigung des Ladevor- 
gangs verzweigt das Pro- 
gramm zum Menue und 
die neu geladene Da- 
tei sowie das Erstellungs- 
datum wird angezeigt. 

Sollten beim Ladevor- 
gang Fehler auftreten (Fi- 
le oder Data-Error) so 
wird dies durch eine Mit- 
teilung angezeigt. Soll 
trotzdem eine neue Datei 
eingelesen werden, so ist 
das Programm abzubre- 
chen und wieder neu zu 
starten. 

Daten abspeichern: Es 
werden nur die im Ar- 
beitsblatt erstellten Werte 
und Texte gesichert, 
nicht aber die prozentua- 
len oder graphischen Aus- 
wertungen. 

Help-Funktion: Mit 
dieser Funktion kann je- 
derzeit, im Menue oder 
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im Arbeitsblatt, festge- 
stellt werden, welche Be- 
deutung die angegebenen 
Parameter haben. 


Gerhard Hübner 


Torschießen 


Torschießen ist ein Spiel 
für zwei Spieler. Der eine 
Spieler schießt und der 
andere wehrt ab. Für 
jedes Tor oder gehaltenen 

Ball gibt es einen Punkt. 

Wer zuerst 10 Punkte 

hat, hat gewonnen. 

Steuerung: siehe Pro- 

gramm. 

Achtung: 

1. Berühren sich die Spie- 
ler, so wird „FOUL“ 
angezeigt und der An- 
griff wiederholt. 

2. Kommt der Torwart zu 
weit aus seinem Tor, 
kann er sich nur ganz 
langsam bewegen. 


Programmerläuterungen: 
Hauptprogramm 220-400 
Sub Punkte 410-470 
(Spieler) 

Sub Gepunk 480-540 
(Torwart) 

Sub Gehalten 550-610 
Sub Stand 620-649 
(Spielstand) 

Sub Schuß 650-750 

Sub Foul 760-800 

Sub Bildschirm 810— 
1080 (Graphik) 

Sub Spielanleitung 1090 
—1300 

Sub Torwart 1310— 
1360 (Torwartsteuerung) 
Sprite 1 Spieler 

Sprite 2 Torwart 

Sprite 3 Ball 
Empfindlichkeit des Tor- 
warts ist in den ‚Call 
Coinc(...)“-Anweisungen 
festgelegt (Zeile 280,340, 
600). 





RERKÄRKERRRRRTIRRKRITHR 


1 
110% * 
120 '% TORESECHIESSEN * 
130 1% * 
140 1% Copyrisht by * 
150% * 
160 ' * Steffen Trefz * 
170 '% * 
180 ı % * 
190 ! * Benpvetigte Geraste * 
200 ! * TI9Y/4A Konsole * 
210 '% Ext. Basic * 
220 '% Joystick (1&2) * 
230 1% * 
260 !' * Speicherbelegung * 
270 1% 5610 Bytes * 
280 ! % * 


ZIO 3 KRKRRKRIERKKRKKKRKRKRRRR 

300 CTALL CLEAR :: CALL SPIEL 

ANLEITUNG :: CALL BILDSCHIRM 

310 CALL SPRITE(#1,124,11,16 

5,90):: CALL SFRITE(#2,112,1 

&,165,125)5: CALL SPRITE (#3, 
136,8,26,120) 

320 CALL JOYST(1,%,Y):35 CALL 
TORWART 5: CALL KEY(O0,K,S): 
s IF K=32. THEN CALL DELSPRIT 

EtALLI:S: CALL CLEAR :: END 

330 CALL MOTION(#1,-Y%2,X%2) 

340 CALL CCGINC (#1,#2,6,T):: 

CALL COINC (#2,#3,10,P):: CAL 

L COINC(#1,#53,6,0) 

s50 IF Q=-1 THEN CALL FOUL : 
: GOTO 310 ELSE 360 

360 IF P=-1 THEN CALL GEPUNK 
(6,W):52 CALL GEHALTEN (G,WI:: 
GOTO 480 ELSE 370 

370 IF T=-1 THEN CALL SCHUSS 
:: GCTO S20 ELSE 2380 

380 CALL POSITION(#2,V,H) 

390 CTALL JOYSTIL,A,Y)S: CALL 
MOTIONCHIL,-VYX2,XX2):: CALL 

"TCERWART 

400 TALL COINC (#2,4#3,10,0):: 
CALL COINC (#1,#3,5,F) 

410 IF F=-1i THEN CALL FOUL : 
: G0OTD Sic ELSE IF U=-1 THEN 
CALL GEFUNK(G, WIE: CALL GEH 

ALTEN !G,W)I:: GOTO 4509 ELSE 4 

20 

420 CALL FOSITION(#2,V,H) 

430 IF U=0 THEN IF VX90 AND 

>20 THEN IF H>89 AND H:15? 

THEN CALL PUNKTE (G,W}:: GOTO 
356 ELSE 440 

440 IF v<89 OR H>250 OR H<10 
THEN CALL DELSFRITE(#2):: C 

ALL HCHAR (2,12,40,10):: DISF 

LAY AT(2,1Z235IZEi6)}: "VORBEI" 
:: GOTG 9450 ELSE 320 

450 CALL MOTION!#E1,0,0,#2,0, 


0,#3,0,0):: CALL STAND(G,W: 
: FOR I=1 TO 250 :: NEXT I: 
: G0TO 310 


460 CALL POSITION(#2,R,8):: 
IF R}=180 THEN 310 ELSE CALL 
STAND(G,W):: GOTO 320 

470 SUB PUNKTE (G,W) 

480 CALL SOUND(100,523,2,659 
„23:3 CALL HCHAR(2,12,40,10) 

490 G=G+1 :: DISPLAY AT(2,12 
JSIZEIB):"TOR" :: IF G6=10 TH 

EN DISPLAY AT(2,12)SIZE(4):" 

ENDE" :: GOTO 500 ELSE CALL 

STAND(G,W):: SUBEXIT 

500 CALL KEY(0,K,S):: IF K=3 

2 THEN CALL DELSPRITE(ALL):: 
CALL CLEAR :: END 

510 CALL KEY(2,K,S):: CALL M 

OTION(#1,0,0,82,0,0,#3,0,0): 
: IF K=18 THEN 6,W=0 :: DISP 

LAY AT(2,12)SIZE (5): "START" 
ı: SUBEXIT ELSE 500 

520 SUBEND 

530 SUB GEFUNK (G,W) 

540 CALL SOUND(100,261,2,326 
„2):: CALL HCHAR(2,12,40, 10) 

550 W=W+l :: IF W=10 THEN DI 

SPLAY AT(2,12)SIZE(4): "ENDE" 
:: 60TO 560 ELSE CALL STAND 
(6,W) ti: SUBEXIT 

560 CALL KEY(0,K,S):: IF K=3 

2 THEN CALL DELSPRITE(ALL):: 
CALL CLEAR :: END 

570 CALL KEY(1,K,8):: CALL M 

OTICN(#1,0,0,#2,0,0,#3,0,0): 
: IF K=18 THEN G,W=0 :: DISF 

LAY AT(2,12)SIZE(S): "START" 
:: SUBEXIT ELSE 580 

580 SUBEND 

570 SUB GEHALTEN(G,W) 

600 A=si1& :: B=3 :: CALL PATT 

ERN(#1,124):: CALL MOTION(#2 
‚A,B,#2,0,0,#1,0,0) 

&10 DISPLAY AT(2,12)SIZE(8): 
"GEHALTEN" 2 CALL STAND(G,W 
) 

620 FOR I=1 TO 200 :: NEXT I 
:: CALL MOTION(#2,0,0) 

630. SALL POSITION(#2,V,W:: 

IF V}=180 THEN SUBEXIT ELSE 

640 

640 CALL COINC (#2,#3,10,0):: 
IF U=-i THEN 600 ELSE SUBEX 

IT 

650 SUBEND 

660 SUB STAND(G,W) 

670 DISPLAY AT(4,12)SIZE(1): 

CHR$(G+42)4: DISPLAY AT(4,15 
J)SIZE(L):":" :: DISPLAY ATiq 
‚IS)SIZE(L)ICHRS(W+48) 





680 SUBEND 
670 3UB SCHUSS 

700 CALL KEY{1,K,S):: CALL I 
OYST(1,%,Y):: CALL TORWART ! 
ı: CALL JOYSTi2,X1,Y1) 

710 CALL MOTION(#1,-Y%2,%*2) 
ı: CALL MOTION(#2,-Y%2,X%*2) 
720 CALL COINC (#1,#3,6,@).:: 
IF Q=-1 THEN CALL FOUL su 
BEXIT ELSE ?30 


730 IF K=18 AND Y=0 AND x=4 
THEN N=-20 :: L=15 :: GOTO ? 


80 :: SUBEXIT ELSE 740 

740 IF k=15 AND Y=0 AND k=-4 
THEN N=-20 ::.L1L=-15.:: .60T0 
780 :: SUBEXIT ELSE 750 


750 IF K=18 AND Y=4 AND X=4 

THEN N=-20 :: L=8 GOTO 78 
0 ı: SUBEXIT ELSE 780 | 

760 IF K=138 AND Y=4 AND xX=-4 
THEN N=-20 :: L=- GOTO 
780 :: SUBEXIT ELSE 770 

770 IF K=18 AND Y=4 AND x=0 
THEN N=-20 L=0 GOTO 78 

ı: SUBEXIT ELSE 700 

7580 CALL PATTERN(#1,120):: C 
ALL MOTION(#2,N,L) 

790 SUBEND 

300 SUB FOUL 

810 CALL COINC (#1,83,6,@) 1: 
IF @=-1 THEN CALL HCHAR (2,12 
‚40,10):: DISPLAY AT(2,12)81 
ZEI4):"FOUL" 3: GOTO 820 

820 CALL DELSPRITE(#3):: 
L MOTION (#2,0,0,#1,0,0):: 
LL PATTERN(#1,140) 

830 FOR I=1 TO 220 :: NEXT I 


CAL 
CA 


»:3 CALL DELSPRITE (ALL): SU 
BERIT 
340 SUBEND 
850 SUB BILDSCHIRM 
&60 CALL SCREEN (2):: CALL CH 


AR (33, "3CICHFASASSAICHC", 40, 
RPTSU"F" 16) ,104,RPTSC"F" 16 
» 

870 CALL CHAR (98, "0707070707 
O?O7FF",97,RPT$("07",9),98,R 
PT$("EO",8), 97, "EOEOEOEOEOEO 
EOFF" , 100, "FFFFFFFF") 

830 CALL CHAR (116, "000000000 
G0000FF" , 102; "FFFFFFFFEOEOEO 
EO", 103, "FFFFFFFFO?070707") 
870 CALL CHAR (120, "030303010 
3070F 1BE3303030303030307C0C0C 
OBOCOEOFODCCOCOE07030303800" 
) 

900 CALL CHAR (124, "030303011 
FAF1B1BO303033F3F 20000080808 
O00COCGFEF330F0F0303030380") 
910 CALL CHARL12,RPT$("0",5 
ZI" IS3CHC1B") 
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920 CTALL CHAR(1385, "101313131 
A1FOFOFOFOFOFTOSOSUS0S0ELOFOF 
OPOLOFGEGLOTOTOCOCOCOCOCOE") 
930 CALL CHAR (140, "38BABA9SF 
F3733377B?7FIAF3F285C181000000 
OCOCOHF3AOCOSIEOBOPOSOC") 


940 CALL HCHAR 18,15, 100, ?):: 
-CALL VCHAR{9,14,98, 3): CAL 
L VCHAR (9, 21,97,3) 


950 CALL HCHAR(S,14,102):: C 
ALL HCHAR (3, 21,103) 

960 CALL VCHAR(12,14,9P):: C 
ALL VCHAR112,21,98) 

970 CALL HCHAR(12,1, 118,13): 
: CALL HCHAR (12,15, 118,6):: 
CALL HCHAR (12,22, 116,11) 

980 CALL HCHAR(1,1,33,43) 


7708 FOR I=12 TO 23 :: FOR J= 
2 TO 5. :: CALL HCHAR(J,I1,40) 
ss: NEXT J ©: NEXT I 


1000 FÜR I=2 TO 5 :: CALL HC 
HAR(1,24,33,20):: NEXT I 
1010 CALL HCHAR (6,12,33,54) 
1020 FOR 1I=3 TO ii FOR J= 
1 TO 132 ::. CALL HCHAR(1,J,10 
4):: NEXT J NEXT I 
1030 FÜR I=3 TO 10 :: FOR J= 
22 TO 32 2: °CALL’ HCHAR(1,J,1 
04):: NEXT J NEXT I 
1040 FOR J=ıi TO 13 CALL H 
CHAR (11,7,104):7 FOR K=22 T0 
32 23: CALL HCHAR(11,K,109): 
ı NEXT K NEXT I 
1050 FOR I1=? TO 1i FOR J= 
15 TO 20 :: CALL HCHAR(1,J,1 
O4)s: NEXT J NEXT I . 
1080 ! COLORS KARRIERE 
1070 CALL COLOR(2,11,11,8,15 
,15,79,168,10,10,10,10,11,18,10 
) . 
1080 FOR I=3 TO ? 5: 
LOR(1,2,11):: NEXT I 
1090 CALL MAGNIFY(3):: CALL 
SCREEN! 12) 
1100 SUBEND 
1110 SUB SPIELANLEITUNS 
1120 CALL CLEAR :: DISPLAY A 
Tt10,4) : "WUENSCHEN SIE EINE 
SPIELAN- LEITUNG ?(J/N)" 
1130 CALL KEY(O,K,S):: IF $= 
0 THEN 1130 
1140 IF K=?4 CR K=1C& THEN 1 
150 ELZE SUBEXIT 


CALL CO 


1150 CALL CLEAR :: CALL SCRE 
EN(3) 
1160 PRINT "XXXX%%% TORSCHIE 


SSEN KRRRHXR" 2: PRINT 135135: 


; 
1170 FRINT "SPIELERANLEITUNG 
FRIMT "STEUERUNG ERFOL 


a3 LE} 
” .. 





GT UEBER. ..ose JOYSTICK-1 = 100 
1180 FRINT "DER SCHUSS WIRD 110 
DURCH KNOFF-DRUCK UND DRUECK 120 


KRRRRRKRRKRKKKTTITINTNHR: 
* * 
*TABELLENBERECHNUNGEN* 


ı 
EN IN ENT-..SPRECHENDE RICHT 130 ! % % 
UNG AUSSE-..LOEST !" 140 ! % Copyright by * 
4190 FRINT jij:3:: PRINT "BI 150 'ı % * 
TTE EINE TASTE DRUECKEN" 160 ! * Peter Eisenbraun * 
a m SER " 170 'ı % * 
te BES LEN BES 190 ! % Benoetigte Geraete * 
me 200 ! * TI9P9/4A Konsole * 
1210 ERD., SLERE 210 ! * Ext. Basic * 
» TORWARTANLEITUNG : 
1220 PRINT *TORWARTANLEITUNG | 320 ı x Ri 
1230 FEINT "STEUERUNG ERFOLG | 260 ! * Speicherbelegung %* 
regen 270 ! % 11184 Bytes * 
T UEBER.....JOYZTICK-2 as ei 
1240 FRINT "DER TORWART KANN 
DIE SCHUES-SE ABWEHREN LnD | 28, RR 
22 PUHKTER" mi ar R 
1250 PRINT 5i5::5235: PRINT g ee 
"EITTE EINE TASTE DRUECKEN" “. ‚i0, 

2 »ı NEXT T :: FOR I=5 TO 8. :: 


1260 CäALL KEYiO,K,@}:: IF $= 

0 THEH 1280 

1270 CALL CLEAR 

1280 PFINT " NEUER START AUF 
KHOPFORUCK..DEE VERLIERERS" 


CALL COLOR(1,8,2):: NEXT I 
310 FOR U=0 TO 4 :: CALL COL 
OR(U,11,2)3: NEXT U :: DISPL 
AY AT(5,3)ERASE ALL:" TABE 
” .. 

Ejsgsgrs PRINT " ENDE AUF LE [| [LENBERECHNUG NEL 
ERTHSTE"IF2SS3SE PRINT " ALF i_ TO S00 :: NEXT DL 

he enenirssssere 1 320 ON WARNING NEXT :: DISPL 
HALOCK us hEhShE N Av AT(3,10)ERASE ALL:"TT.MM. 
JJ" :: DISPLAY AT(9,10):"DAT 
EINAME" :: ACCEPT AT(5,10)81 
ZE(Z)VALIDATE(DIGIT):TT 
EZ 330 ACCEPT AT(5,13)SIZE(Z)VA 
en en BRLHSNEENT | LIDATEIDIGITIENM 33 ACcERT A 
a SBBErTT T(5, 16)SIZE(2)VALIDATE (DIGIT 
1310 SUBT-D a 


IOrE SE Tore 340 IF TT<1 OR TT>31 OR MM<A 


’ 
1290 FRINY " BITTE EINE TAST 
E DRUECKEN" 


1300 CALL KEYIO,K,S}:: IF 3= 


ae N a OR MM>12 THEN 320 ELSE ACCE 
1340 CALL KOTIGNIRT, -YiIX2, Ni x 

. PT AT(11,10)SIZE(10)VALIDATE 
r 


(WALPHA,"."):DN$ 
350 DISPLAY AT(15,10): "DRUCK 
ER J N" ©: ACCEPT VALIDATE(" 
JN")SEG$ :: IF EG$="J" THEN 
DISPLAY AT(17,1):"BEZEICHNUN 
G an 
360 IF EG$="N" THEN 370 :: D 
ISPLAY AT(19,1):"R5232.BA=.. 
„ODER PIO ?" :: ACCEPT AT(23 
„II VALIDATE (UALPHA,".=/-1234 
5578970"): DR$ 
370 DISPLAY AT(3,11)ERASE AL 
L:"auswahl" :: DISPLAY AT(8, 
1): "a>ARBEITSBLATT...r>READ 
DATA" ©: DISPLAY AT(10,1):"h 
>HELP ROUTINE...s>SAVE DATA" 
380 DISPLAY AT(12,1):"c>HARD 
COPY" :: DISPLAY AT(22,1):"d 
atum DE PERETTTERETRE :ı: D 
ISPLAY AT(24,1):"datei ";TAB 
(8); DN$ 
390 DISPLAY AT(18,1):"drucke 
sTAB(Z20)5DR$ :: CALL KEY(O 


1350 CALL FISITIONH3,R,E 
1360 IF R:=140 THEN ZALL NST 
TONt#3,0,0) 
1270 ZUEEND 






UNSER 
2 TELEFONSERVKE & 


Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf 
der Leserbriefseite 
ACHTUNG !!! 

Wie immer steht unseren Lesern unser Telefon- 
Service zur Verfügung! Jeden Dienstag von 15 bis 


19 Uhr. Für technische Fragen: 0731/33 220 und 


für Listings/Programme: 089/129 80 13 
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IF 5=0 THEN 390 ELSE 


K,8)8: 
300 
400 IF K=&5 THEN 410 :: IF K 
=57? THEN 1530 IF K=33 THE 
N 880 :: IF K=32 THEN 920 
IF K=72 THEN 1540 ELSE 370 


410 DISPLAY AT(1,1)ERASE ALL 
:Fi$ DISPLAY AT(3,1):F2$ 
:: DISPLAY AT(S,1):F3$ 
420 DISFLAY AT(1,16):USING " 
HARBHH.AR"IZL DISPLAY AT( 
23,16) : USING "HRHHHH.HR"IZZ2 : 
; DISPLAY AT(5,16):USING "## 
HRAH.AH"IZS 
430 DISPLAY AT(7,1):F4$ :: D 
ISPLAY AT(9,1):FS%$ :: DISPLA 
Y AT(IL,L):F6S DISPLAY AT 
(13, 1):F7$ 
440 DISPLAY AT(7,16):USING " 
HHAHHH.HH"IZA 2 DISPLAY AT( 
9,18): USING "AHAHHH.HH"IZS : 
: DISPLAY AT(11,16):USING "# 
HHRHR.HR"IZO 
450 DISPLAY AT(13,16) :USING 
"HAHHHR.AR"IZ7 
460 DISPLAY AT(15,1):F8$ :: 
DISPLAY AT(17,1):F9$ :: DISP 
LAY AT(19,1):F108$ 
470 DISPLAY AT(15, 18): USING 
HAHHHR. HH" :ZS DISPLAY AT 
(17,16) 1 USING "HRHHHH.HH":ZY 
:: DISPLAY ATt1?,16) :USING 
"HAHHHR.HR"TIZLO 
480 DISPLAY AT(1,27):"1" 
DISPLAY AT(3,27); "2" DISP 
LAY AT(5,27):"3" ;: DISPLAY 
AT(7,27)ı"4" DISPLAY AT(9 
‚2ryır5" DISPLAY AT(11,27? 
yJıtrg" 
490 DISPLAY AT(13,27):"7" 


DISPLAY AT(15,27):"8" :: DI 
SPLAY AT(17,27):"?" :: DISPL 
AY AT(19,25):"10" 

500 DISPLAY AT(22,1):"SUMME 


TOTAL" ST=21+22+23+24+25+ 
2&6+27+23+29+210 DISPLAY A 
T122,16):USING "HHHRHR.HR":S 
7 

510 DISPLAY AT(24,3):"""text 


e”aend”einf”jin“" :: CALL KE 
Y(0,K,S):: IF S=0 THEN 510 : 
ı IF K=74 THEN 540 :: IF K=? 


8 THEN 520 ELSE 510 

520 DISPLAY AT(24,3):"""wert 
eraenrd”einf”j in" CALL KE 
Y(0,K,S):: IF 5=0 THEN 520 :; 
ı IF K=74 THEN 870 ELSE 530 

330 IF K=78 THEN 780 ELSE 37 
je) 


540 ON WARNING NEXT DISPL 
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AY ATt24,2):"""nelche”poitio 
rs”nr”"" s: ACCEPT AT(24,26) 
SIZEt2)BEEPF VALIDATE (DIGIT): 
PS GOTO 560 
550 DISPLAY AT(24,3):"*""inse 
rt”"n=zeuen”text”"""" :: RETURN 
560 IF PS<1 OR PS>10 THEN 54 
O0 :: IF PS=1 THEN GOSUB 550 
«: ACCEPT AT(1,1)SIZELtIO)BEE 
P VALIDATE:UALPHA,"."):Fi1$ : 
: GOTG 510 
570 IF PS=2 THEN GOSUB 550 : 
: ACCEPT AT(3,1)5SIZE(10)BEEP 
VALIDATE UALFHA,".")EF2$ :: 
50T0 510 
580 IF P5=3 THEN GOSUB 550 : 
: ACCEFT AT(S5,1)SIZEI1O)BEEP 
VALIDATE (UALPHA, "."):FS$ 5: 
GOTO 510 
590 IF PS=4 THEN GOSUB 550 : 
: ACCEPT AT(?,1)5SIIE(1O)BEEP 
VALIDATE (UALFHA,".")SF4$ 2: 
S50TO 510 
600 IF PS=5 THEN 505UB 550 ; 
: ACCEPT AT(9,1)5IZE(10)BEEP 
VALIDATE (LALPHA,"."):F5$ 5: 
OT9 S1O 
610 IF PS5=& THEN GOSUB 550 : 
» ACCEPT ATt11,1)SIZE(1O)BEE 
P VALIDATE (UALPHA,"."):Fö$ : 
: GOTO 510 
620 IF FS=? THEN GOSUB 550 : 
s ACCEPT AT(13,1)5IZEtI10)BEE 
P VALIDATE (UALFPHA,"."):F?$ ; 
: GOTO 510 
630 IF P5=3 THEN GOSUB 550 : 
s ACCEPT AT(15,1)31IZE(10) BEE 
P VALIDATE (UALPHA,"."):FS$ : 
: GOTG 310 
640 IF P5=9 THEN GCSUB 550 : 
ı ACCEPT AT(17,1)SIZE(10)BEE 
P VALIDATE (UALPHA,"."):F9$ : 
: GOTO 510 
650 IF PS=10 THEN GOSUB 550 
»: ACCEPT AT{(19,1)5IZE(10)BE 
EP VALIDATE (UALPHA,"."):F10$ 
:: 60T0O 510 
660 DISFLAY AT(24,3)SIZE(20) 
s"’»*insert”"neuen”nert”"”" 
RETURN 
670 ON WARNING NEXT DISPL 
AY AT(24,5)SIZE(20): "welche 
positions”nr”*" :: ACCEPT ATt 
24,26) SIZE(Z)BEEP VALIDATE(D 
IGIT);SPP :: GOTO 630 
680 IF FP<:1 OR PP>10 THEN 57? 
oO s: IF PP=1 THEN GOSUB 4550 
ACCEPT AT(1,15S)5IZE(?)BEE 
P VALIDATE (NUMERIC): 21 GO 
TO 500 
690 IF PP=2 THEN GOSUB 660 : 





: ACCEPT AT(3,15)SIZE(9)BEEP 
VALIDATE {NUMERIC)I:Z GOT 
0 500 


700 IF PP=3 THEN GOSUB 640 : 
: ACCEPT AT(5,15)SIZE(P)BEEP 
VALIDATE (NUMERIC): 23 GOT 
0 500 


710 IF PP=4 THEN GOSUB 660 : 
: ACCEPT AT(?7,15)SIZE(P)BEEP 
VALIDATE (NUMERIC): 24 GOT 
0 500 
720 IF PP=5 THEN GOSUB 660 : 
: ACCEPT AT(9,15)SIZE(F)BEEP 
VALIDATE (NUMERIC): Z5 GOT 
0 500 
730 IF PP=& THEN GOSUB 6650 : 
» ACCEPT AT(11,1S)SIZE(9)BEE 
P VALIDATE (NUMERIC): Z6& 60 
TO 500 
740 IF PP=7 THEN GOSUB 650 : 
: ACCEPT AT(13,15)SIZE(9)BEE 
P VALIDATE (NUMERIC):Z7 GO 
To 500 
750 IF PF=8 THEN GOSUB 660 : 
ı ACCEPT AT(15,15)SIZEI9)BEE 
P VALIDATE (NUMERIC):Z8 60 
TO 500 
760 IF PP=9 THEN GOSUB 660 : 
: ACCEPT AT(17,15)SIZE(?)BEE 
F VALIDATE (NUMERIC):Z9 GO 
TO 500 
770 IF PP=10 THEN GOSUB 660 
»: ACCEFT AT(19,15)SIZE(9P)BE 
EP VALIDATE (NUMERIC): Z10O 
GOTO 500 
780 DISPLAY AT(24,3):"f”p”m” 
g”t”c”e””helpih”" :: CALL KE 


Y(0,K,5):: IF S=0 THEN 780 E 

LSE 790 

790 IF K=80 THEN 810 :: IF K 

=72 THEN 1540 :: IF K=84 THE 

N 410 :: IF K=71 THEN 970 :; 
IF K=77 THEN 1620 :: IF K=6 

7 THEN 1580 

800 IF K=69 THEN 370 :: IF K 


=70 THEN 1870 ELSE 510 

810 IF ST=0 THEN 820 ELSE 83 
(6) 

820 DISPLAY AT(24,3): "keine 
werte angelegt" CALL KEY( 


0,K,5):: IF S=0O THEN 820 ELS 
E 510 
830 X=100. :: DISPLAY AT(22, 


25)SIZE(4):X :: DISPLAY AT(2 
3,27)SIZEt1):"%" ©: Pil=21/ST 
*%X :: DISPLAY AT(1,25)SIZE(4 
):Pi P2=22/ST*X 

840 DISPLAY AT(3,25)SIZE(4): 
P2 :: P3=223/5T%xX :: DISPLAY 
AT(S,25)SIZE(4):P3 :: P4=24/ 
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ST#X :: DISPLAY AT(7,25)SIZE 
(4):P4 

850 PS=25/5T%% :: 
(9,25) SIZE(4):PS 
RXo:: 


DISPLAY AT 
ıı P6=26/ST 
:: DISPLAY AT(11,25)SIZE( 
4):P& :: P?7=Z7/STXX :: DISPL 
AY AT(13,25)SIZE(4):P? :: PB 
=28/5T%X 
860 DISPLAY AT(15,25)SIZE (4) 
:P8 P9=2Z9/STXX DISPLAY 
AT(17,25)SIZE(4):P9 :: Pi0= 
Z1O/STXX :: DISPLAY AT(19,25 
)SIZE(4):P10 
870 CALL KEY(0,K,8):: 
THEN 870 ELSE 510 
880 CALL CLEAR :: OPEN #1:"C 
Si", INTERNAL , SEQUENTIAL, OUTP 
UT,FIXED 192 :: PRINT #1:TT, 
MM,JIJ PRINT #1:DN$ 
870 PRINT #1:F1$,F2$,F3$,F4$ 
‚FS$,F6%,F7$,F8%,F9$,F10$ 
900 PRINT #1:21,22,23,24,25, 
26,27,28,29,210 
910 CLOSE #1 :: 
920 CALL CLEAR 
600 
930 OPEN #1:"CS1",INTERNAL,S 
EQUENTIAL,INPUT ‚FIXED 192 ; 
: INPUT #1:TT,MM,JJ INPUT 
#1:DN$ 
940 INPUT #1:F1$,F2$,F3$,F4$ 
‚FS$,F6$,F7$,F8$,F9$,F10$ 
950 INPUT #1:21,22,23,24,25, 
276,27,28,29,Z10 
960 CLOSE #1 :: GOTO 370 
970 DISPLAY AT(1,1)SIZE(15): 
n 5%" DISPLAY AT(3,1181Z 
Et15):" 10%" DISPLAY AT(S 
‚LISIZELIS)I:" 20%" DISPLA 
Y AT(?7,1)SIZELIS):" 30%" 
980 DISPLAY AT(9,1)SIZE(15): 
n 40% n 
990 DISPLAY AT(11,1)SIZE(15) 
in 50%" DISPLAY AT{13,1)8 
IZE(15):" 60%" :: DISPLAY AT 
(415,1I)SIZE(15):" 70%" :: DIS 
PLAY AT(17,1)SIZE(15):" 80%" 
1000 DISPLAY AT(19,1)SIZE(15 
Jar goX" 
1010 DISPLAY AT(Z1,1)SIZE(15 
y):"100%" :5 DISPLAY AT(22,1) 
SIZE(15):".... 1234567890" 
DISPLAY AT(23,1)SIZE(15):”, 
EEE 
1020 FOR L=14 TO 14 :: CALL 
COLOR(L,5,2):: CALL CHAR(136 
‚ "FFFFFFFFFFFFFFFFFFFFF"):: 
NEXT L 
1030 FOR 01=13 TO 13 :: CALL 
COLOR (01,14,2):: CALL CHAR( 
128, "FFFFFFFFFFFFFFFFFFF"):G: 


IF S=0 


GOTO 370 
ON ERROR 1 


a nd aan Sn u m nn u en a Ten nn m a nen a u az 


NEXT OI 

Ö 

1040 IF Pi>1 AND Pi<£& THEN A 

=1 ELSE IF Pi>5 AND Pi<ii1 TH 

EN A=3 ELSE IF Pi>10 AND P3< 

21 THEN A=5 ELSE IF P1>20 AN 

D Pi<31 THEN A=? 

1050 IF P1>30 AND Pi1<41 THEN 
A=9 ELSE IF Pi>40 AND Pi1<51 
THEN A=11 ELSE IF Pı1>50 AND 
Pi<X61 THEN A=13 


1060 IF P1>60 AND Pi£71 THEN 
A=15 ELSE IF P1>70 AND P18 
i THEN A=17 ELSE IF P1>80 AN 
D Pi<91 THEN A=19 ELSE IF Pi 
>?1 THEN A=21 
1070 CALL VCHAR(1,7,136,A) 
1080 IF P2<1 THEN 1130 
1090 IF P2>1 AND P2<& THEN A 
B=1 ELSE IF P2>5 AND P211 T 
HEN AB=3 ELSE IF P2>10 AND P 
2<21 THEN AB=S ELSE IF P2>20 
AND P2<31 THEN AB=7 
1100 IF P2>30 AND P2<41 THEN 
AB=9 ELSE IF P2>40 AND P2<5 
i THEN AB=11 ELSE IF P2>50 A 
ND P2!&1 THEN AB=13 ELSE IF 
P2>60 AND P2X71 THEN AB=15 
1110 IF P2>70 AND P2<81 THEN 
AB=17 ELSE IF P2>80 AND P2< 
91 THEN AB=19 ELSE IF P2>91 
THEN AB=21 


1120 CALL VCHAR(1,8,128,AB) 
1130 IF P3<1 THEN 11830 
1140 IF F3>1 AND P3<& THEN A 
©=1 ELSE IF P3>5 AND P&11 T 
HEN AC=3 ELSE IF P3>10 AND P 
3<21 THEN AC=5 ELSE IF P3>20 
AND P3<31 THEN AC=7? 
1150 IF P3>30 AND P3{41 THEN 
AC=9 ELSE IF P3>40 AND P3%5 
i THEN AC=11 ELSE IF P3>50 A 
ND P?<&1 THEN AC=13 ELSE IF 
P3>60 AND P3<?1 THEN AC=15 
1160 IF P3>70 AND P3<81 THEN 
AC=17 ELSE IF P3>30 AND P& 
91 THEN AC=19 ELSE IF P3>91 
THEN AC=21 
1170 CALL VCHAR(1,9,136,AC) 
1180 IF P4<1 THEN 1230 
1190 IF P4>1 AND P4<& THEN A 
D=1 ELSE IF P4>5 AND P4<11 T 
HEN AD=3 ELSE IF P4>10 AND P 
4<21 THEN AD=5 ELSE IF P4>20 
AND P4<31 THEN AD=? 
1200 IF P4>30 AND P4<41 THEN 
AD=9 ELSE IF P4>40 AND P4<5 
i THEN AD=11 ELSE IF P4>50 A 
ND P4{61 THEN AD=13 ELSE IF 
P4>60 AND P4<71 THEN AD=15 


IF Pi£1 THEN 108 
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1210 IF P3>70 AND P4<81 THEN 
AD=1? ELSE IF P4>80 AND P4£ 
91 THEN AD=17 ELSE IF P4>91 
THEN AD=21 
1220 CALL VCHAR(1,10,123,AD) 
1230 IF PS<1 THEN 1230 
1240 IF P5>1 AND PS<& THEN A 
E=1 ELSE IF PS>S AND PS<i1 T 
HEN AE=3 ELSE IF PS>10 AND P 
Ss(21 THEN AE=5 ELSE IF PS>20 
AND PS<31 THEN AE=? 
1250 IF P5>30 AND PS<41 THEN 
AE=9 ELSE IF PS>40 AND PS<5 
i THEN AE=11 ELSE IF PS>50 A 
ND PS<&1 THEN AE=13 ELSE IF 
PS>60 AND PS<71 THEN AE=15 
1260 IF P5>70 AND PS<81 THEN 
AE=17 ELSE IF PS>30 AND PS 
91 THEN AE=19 ELSE IF P5>?1 
THEN AE=21 
1270 CALL VCHAR(1,11,136,AE) 
1280 IF P&<1 THEN 1330 
1290 IF P6>i1 AND P&<& THEN A 
F=1 ELSE IF P&>5 AND P&li T 
HEN AF=3 ELSE IF P&>10 AND P 
&{21 THEN AF=S ELSE IF P6>20 
AND P&{31 THEN AF=? 
1300 IF P&>30 AND P&<41 THEN 
AF=? ELSE IF P&6>40 AND Ps£5 
1 THEN AF=11 ELSE IF P6)50 A 
ND Ps<&t THEN AF=13 ELSE IF 
P&>&0 AND P&<71 THEN AF=15 
1310 IF P&>70 AND P&<81 THEN 
AF=17? ELSE IF P6>30 AND P&t 
91 THEN AF=19 ELSE IF Ps>91 
THEN AF=21 
1320 CALL VCHAR(1,12,128,AF) 
1330 IF P?<1 THEN 1330 
1340 IF P?>i AND P?<& THEN A 
G=1 ELSE IF P?>5 AND P7K11 T 
HEN AG=3 ELSE IF P?>10 AND P 
7<21 THEN AG=5 ELSE IF P?>20 
AND P7<31 THEN AG=7? 
1350 IF P?>30 AND P?<41 THEN 
AG=9 ELSE IF P7>40 AND P7<5 
i THEN AG=11 ELSE IF P?>50 A 
ND P?<&1 THEN AG=13 ELSE IF 
P?>&0 AND P?<71 THEN AG=15 
1360 IF P?>70 AND P?<81 THEN 
AG=17 ELSE IF P?>30 AND P? 
71 THEN AG=19 ELSE IF P?>91 
THEN AG=21 
1370 CALL VCHAR(1,13,136, AG) 
1380 IF F3<1 THEN 1430 
1390 IF P3>1 AND P8<& THEN A 
H=1 ELSE IF P8>5 AND PS<11 T 
HEN AH=3 ELSE IF P3>10 AND P 
8<(21 THEN AH=5 ELSE IF P8>20 
AND P8<{31 THEN AH=? 
1400 IF P3>30 AND P8<41 THEN 
AH=9 ELSE IF P8>40 AND P&£5 


i THEN AH=i1 ELSE IF P8)50 A 
ND P8<61 THEN AH=13 ELSE IF 
P8>60 AND P8<71 THEN AH=15 
1410 IF P8>70 AND P8<81 THEN 
AH=17 ELSE IF P8>80 AND P& 
91 THEN AH=19 ELSE IF P8>91 
THEN AH=21 
1420 CALL VCHAR(1,14,128,AH) 
1430 IF P9<1 THEN 1480 
1440 IF PP>1 AND P#X& THEN A 
I=si ELSE IF P9>5 AND P%i1i T 
HEN Al=3 ELSE IF P#>10 AND P 
9221 THEN Al=5 ELSE IF P9)20 
AND P9<{31 THEN Al=? 


1450 IF F?>30 AND F9<41 THEN 

AI=9 ELSE IF P9>40 AND P9<5 
1 THEN Al=11 ELSE IF P9>50 A 
ND P9xdi THEN Al=13 ELSE IF 
P9>6&0 AND P9<?71 THEN Al=15 


1460 IF P9>70 AND P9<81 THEN 
Al=17 ELSE IF P?>80 AND PR 
91 THEN Al=19 ELSE IF P9>91 
THEN Al=21 

1470 CALL VCHAR(1,15,136, Al) 
1480 IF P10<1 THEN 1530 

1490 IF PiO>1 AND P10<6 THEN 
AJ=si ELSE IF P10>5 AND P10X 
t1 THEN AJ=3 ELSE IF P10>10 
AND F10{21 THEN AJ=5 ELSE IF 
P10:2G0 AND P10<31 THEN AJ=? 
1500 IF P10>30 AND P10<41 TH 
EN AJ=9 ELSE IF P10>40 AND P 
10<£51 THEN AJ=i1 ELSE IF P10 
>50 AND P10<61 THEN AJ=13 
1510 IF P10>60 AND P10471 TH 
EN AJ=15 ELSE IF P10>70 AND 
F10<81 THEN AJ=17? ELSE IF Pi 
0380 AND P10<91 THEN AJ=19 E 
LSE IF P10>91 THEN AJ=21 
1520 CALL VCHAR(1,16,128,AJ) 


1530 CALL KEY(0,K,8):: IF $= 
0 THEN 1530 ELSE 780 

1540 CALL CLEAR :: DISPLAY A 
Tt1,1):">G GRAPHIK" ::; DISPL 


AY AT(3,4): "PRO POS.IN %" 
DISPLAY AT(5,1):">T TABELLE 


1550 DISPLAY AT(7,1):">P %AU 
SWERTUNG" :: DISPLAY AT(9,1) 
:">M MITTELWERT" :: DISPLAY 
AT(13,1)2">C HARDCOPY" :: DI 
SPLAY AT(13,1):">E ENDE" 
15680 DISFLAY AT(15,1):">F BE 
R.NACH FORMELN" 


1570 CALL KEY(0,K,8):: IF $= 
O0 THEN 1570 ELSE 370 
1580 ON ERROR 1600 :: OPEN # 


:: FOR Y=1 TO 2 
FOR X=32 TO 1 
CALL GCHAR (Y,X,WE 


1: DR$, OUTPU 
4 :: Qge"t 
STEP -1 
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ss WTE=CHRS (WE): Q$=WT$+0$ 

1590 NEXT X :: PRINT #1: TAB 

22)50$ :: NEXT Y :: CLOSE #1 
:: GOTO 370 


1600 DISPLAY AT(S,1)ERASE AL 
:"DATA ODER FILE ERROR !" : 
: DISPLAY AT(9,1): "PROGRAMM 
ABBRECHEN/NEUSTART!" 
1610 CALL KEY(0,K,S):: 
0 THEN 1610 ELSE 370 
1620 IF Z1>0 THEN PO1=Z1-Zi+ 
IF 220 THEN PO2=22-22+ 
IF 2330 THEN PO3=23-23+ 
IF 24>0 THEN P04=24-24+ 
IF 2530 THEN POS=Z5-25+ 


IF $= 


26>0 
27>0 


THEN 
THEN 


PO6s=2Z6-26+ 
PO?=27-27+ 
28>0 THEN P08=28-28+ 
27>0 THEN P09=29-29+ 
z10>0 THEN P010=210- 


fe tn be be bb de he pe he je 
Do 

oo. cn 0. Q) 
oO 


z10+1 

16430 PT=FO1+PO2+PO3+P04+PO5+ 

PO&S+PO?+POS+PO9+POIO 

1650 MW=ST/PT :: DISPLAY AT( 

24,3): ""mittelwert””" DIE 

PLAY AT(24,16):USING "HHHHHH 
HH":MW 

1660 CALL KEY(O0,K,S):: 

O THEN 1660 :: 

780 ELSE 1660 

1670 FOR 01=13 TO 13 :: CALL 
COLOR (01,14,2):: CALL CHAR ( 
128, "FFFFFFFFFFFFFFFFF")IG:ON 

EXT 01 

1680 CALL CLEAR :: CALL VCHA 

R(1,28,128,12)::5 CALL VCHAR ( 
1,29,128,12):: CALL VCHAR (1, 

30,128,12) DISPLAY AT(1,26 
):"tan" 

1690 DISPLAY AT(3,26):"cos" 
ss DISPLAY AT(5,26):"log" :; 
DISPLAY AT(7,26):"atn" :: D 
ISPLAY AT(9,26):"sin" DIS 

PLAY AT(11,26):"sqr" 

1700 DISPLAY AT(24,1):"auswa 
1710 CALL KEY(O0,K,S):: IF S= 
O THEN 1710 :: IF K=84 THEN 
1730 :: IF K=67? THEN 1770 
IF K=?& THEN 1790 

1720 IF K=55 THEN 1810 :: IF 
K=85 THEN 1830 :: IF K=81 T 

HEN 1850 ELSE 1710 

1730 DISPLAY AT(1,25)SIZE(1) 
s'x" 22 GOSUB 1870 

1740 DISPLAY AT(9,1):TAN(AL) 
ss DISPLAY AT(11,1):TAN(BE): 
s DISPLAY AT(13,1):"GRAD”"ITA 

N(GA#PI/180) 

1750 DISPLAY AT(24,1):”"h”cop 


IF S= 
IF K=13 THEN 





TI REVUE erscheint 


yıc“helpih”endeie”" 
1760 CALL KEY(0,K,S):: 
OÖ THEN 1780 IF K=57 THEN 
1580 IF K=72 THEN 1540 :: 
IF K=59 THEN 410 ELSE 1670 
1770 DISPLAY AT(3,25)SIZE(1) 
zer" GOSUB 1870 
1780 DISPLAY AT(9,1):COS(AL) 
DISPLAY AT(11,1):COS(BEI: 
° DISPLAY AT(13,1):"GRAD";CO 
S(GA#PI/180) GOTO 1750 
1790 DISPLAY AT(5,25)SIZE (1) 
"x" 55 DISPLAY AT(3,1)SIZE( 
4): "WERT" ON WARNING NEXT 
»: ACCEPT AT(3,13)SIZE(10)V 
ALIDATE(DIGIT,"."):WRT 
1800 DISPLAY AT(5,1)SIZE(12) 
: "LOGARITHMUS=" DISPLAY A 
TI?,1I:5LOGCWRT):: GOTO 1750 
1810 DISPLAY AT(7,25)5IZE (1) 
a ie GESUB 1870 
1820 DISPLAY AT(11,1):ATNCAL 
DISPLAY AT(13,1):ATN(BE) 
+ DISPLAY AT(15,1):"GRAD";5A 
TN(GAX180/PI):: GOTO 1750 


1830 DISPLAY AT(9,25)SIZE(1) 
urx" 35 GOSUB 1870 

1840 DISPLAY AT(11,1):SIN(AL 
):s DISPLAY AT(13,1):SIN(BE) 
s; DISPLAY AT(15,1):"SRAD"5S 
IN{GAXFI1/180):: GSOTO 1750 
1850 DISPLAY AT(11,25)SIZE (1 
JR" DISPLAY AT(3,1)SIZE 
(4): "WERT" ON WARNING NEX 
T »: ACCEPT AT(3,13)SIZE(10) 
VALIDATE (DIGIT,"."):WERT 
18560 DISPLAY AT(5,1)SIZE(14) 
: "QUADRATWURZEL=" :: DISPLAY 
AT(?7,1):SQR(WERT):: GOTO 17? 
so 

1870 DISPLAY AT(3,1)SIZE(11) 
:"BOGENMASS 1" ON WARNING 
NEXT :: ACCEPT AT(3,13)SIZE 
(10)VALIDATE (DIGIT,".")SAL 
1880 DISPLAY AT(5,1)5IZE(11) 
:"BOGENMASS 2" ACCEPT AT( 
S,13)SIZE(10)VALIDATE(DIGIT, 
"„"):BE DISPLAY AT(?7,1)SI 


IF S= 


.. 


ZE (8); "GRADMASS" 

1890 ACCEPT AT(7,13)SIZE (10) 
VALIDATE (DIGIT,"."):GA 

1900 RETURN 





Die nächste 


am 28. Oktober 
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SERVICE 


FUR 


BUCHHALTER 
MUSIKER & 
SAMMLER 





SPICKZETTEL 


Nachdem das Programm 
mit RUN, RUN“ DSKI. 
filename“ oder RUN“ 
CS1“ gestartet worden 
ist, erscheint das Titelbild. 
Dazu ertönt die etwas 
verfremdete Melodie des 
Liedes ‚Yellow Subma- 
rine“ von den Beatles. 
Mit einer beliebigen Taste 
geht es weiter. Man wird 
nun nach dem Namen ge- 
fragt und ob der Druk- 
ker angeschlossen ist, um 
das Zeugnis auszudruk- 
ken. Jetzt kann man 
noch wählen, ob man die 
Spielanleitung lesen will. 
Nach all diesen Vorberei- 
tungen beginnt nun end- 
lich das eigentlich Spiel. 
Obwohl der arme 
Schüler Willi weiß, daß 
heute einige Exen (= Steg- 


reifaufgaben) ins Haus 
stehen, hat er wie üblich 
nichts gelernt. Als sein 
Schützengel steigst Du 
nun in Willis Körper. Da- 
durch ist er zwar auch 
nicht schlauer, aber Du 
kannst ihm helfen, Spick- 
punkte einzusammeln, 
die von Zeit zu Zeit auf 
einer Schulbank erschei- 
nen. Das versucht der 
Lehrer natürlich zu ver- 
hindern, indem er ıhn 
verfolgt und Sehstrahlen 
nach ihm wirft. Wird Willi 
von einem Sehstrahl ge- 
troffen, hat ihn der Leh- 
rer beim Spicken er- 
wischt und Du erntest ei- 
ne Spicksechs. Du bist 
aber auch nicht ganz 
wehrlos, Du kannst näm- 
lich mit U-Haken auf den 
Lehrer schießen. Triffst 
Du ihn, ist er fünf Minu- 
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ten bzw. bis zum näch- 
sten gefressenen Spick- 
punkt bewußtlos. Danach 
ist er allerdings noch 
zorniger, d.h. er fährt 
schneller und schießt öf- 
ter. Hast Du 45 (Spiel-) 
Minuten überstanden 
oder bist Du vom Lehrer 
erwischt worden, ist die 
erste Stunde zu Ende, 
und der Computer er- 
rechnet die Zeugnisnote 
aus den erreichten Spick- 
punkten (wenn man 
nicht ohnehin schon eine 

Sechs hat). Jetzt folgt die 

zweite Schulstunde mit 

einem anderen Fach. Die 

Lehrer werden von Stun- 

de zu Stunde strenger, 

was sich in ihrer Ge- 
schwindigkeit und der 

Häufigkeit der Sehstrah- 

len zeigt. Sind alle sieben 

Stunden vorbei, wird aus 

der Summe der abgegebe- 

nen Schüsse und der Zahl 
der Spicksechser die Be- 
tragennote errechnet. An- 
schließend wird das Zeug- 
nis ausgegeben (wenn der 
Drucker angeschlossen 
ist, auch schwarz auf 
weiß). Durch Tasten- 
druck erscheint die Fra- 
ge, ob man noch einmal 
spielen will. Betätigt man 
die Taste ‚J‘ beginnt das 

Spiel von vorne, aber oh- 

ne Titelbild. 

Noch ein paar Hinwei- 
se zum Gebrauch des Pro- 
gramms: 

1. Gesteuert wird Willi 
mit dem Joystick 1. 
Die Uhaken feuert 
man mit dem Feuer- 
knopf des Joysticks ab. 

2. Während des Lehrer- 
wechsels können über 
die Funktionstasten 
noch weitere Funktio- 
nen betätigt werden: 
mit „CLEAR“ kommt 
man zur Frage, ob man 
aufhören möchte. 
mit „AID“ kommt 
man zum Zeugnis. 
mit „BACK“ beginnt 
das Spiel von vorne. 

Peter Hlauna 


Musikkomposi- 
tionsprogramm 


Dieses Programm ist ganz 
der Musik gewidmet! Es 
bietet dem Benutzer die 
Möglichkeit der Eingabe 
einer Melodie mit bis zu 
125 Noten, wobei ihm 
die Auswahl zwischen 
Ein-, Zwei- oder Drei- 
klang angeboten wird. 
Die eingegebene Melodie 
kann nach einer eventuel- 
len Korrektur beliebig oft 
angehört werden. Zusätz- 


lich besteht die Möglich- - 


keit, die Komposition auf 
Cassette zu speichern 
oder andere zu laden. Die 
im Menü angebotene Ein- 
leitung (Wahlnummer 1) 
gibt Einzelinformationen 


zur  Programmhandha- 
bung. 

Bei Titelbld und 
Schlußbild setzt das 


Drücken einer beliebigen 


Taste das Programm fort. 


Benötigt werden für 


„das Programm nur die 


Konsole, ein Datenrecor- 
der und Spaß am TI. 

P.S. Dieses Programm 
darf nur mit der Konso- 
le, ohne Xbasic-Modul 
und ohne angeschlossene 
Peripherie gefahren wer- 
den, da zur Dimensionie- 
rung der Felder fast der 
gesamte Speicherplatz be- 
nötigt wird. 

Glückliche Besitzer 
einer 32-K-Erweiterung 
können das Programm je- 


doch auch in Extended- ° 


Basic fahren. 
Alexander Saberschinsky 


Steuerberech- 
nung 
Das Programm unter- 


scheidet zwischen sozial- 
versicherungs- und nicht 
sozialversicherungspflich- 
tigen Arbeitnehmern und 
errechnet nach Eingabe 
von Bruttojahreseinkom- 


men, Werbungskosten, 
Sonderausgaben, Zahl der 
Kinder und etwaiger Bau- 
kosten für ein Eigen- 


heim oder eine Eigen- 


tumswohnung das zu ver- 
steuernde Einkommen, 
die jährliche Einkommen- 
steuer, die jährliche Kir- 
chensteuer sowie monat- 
liche Arbeitnehmerbei- 
träge zur Kranken-, Ren- 
ten- und Arbeitslosenver- 
sicherung und das monat- 
liche Nettoeinkommen 
unter Berücksichtigung 
einer etwaigen Steuerer- 
sparnis nach $ 7b EStG. 
Sollten die genauen Wer- 
te für Werbungskosten 
und Sonderausgaben 
noch nicht bekannt sein, 
zeigt das Programm die 
familienstandabhängigen 
Pauschalbeträge für diese 
Werte extra an. Nach Ab- 
schluß jeder Berechnung 
kann zu einer Druckrou- 
tine verzweigt werden, 
die die Werte „schwarz 
auf weiß“ festhält. 

Das Programm ist 
nicht nur für Steuerbera- 
ter bzw. Vermögensbera- 
ter interessant, sondern 
auch für jeden Arbeitneh- 
mer, der über seine Abga- 
ben Bescheid wissen 
möchte bzw. errechnen 
möchte, ob etwa eine Er- 
höhung der Sonderausga- 
ben über z.B. Lebensver- 
sicherung o.ä. zu einer 
Steuerersparnis führt etc. 

Bei der Eingabe der 
Sozialversicherungsquo- 
ten am Anfang des Pro- 
gramms ist es wichtig, 


nur die Arbeitnehmer- 
anteile in % einzugeben. 
Thomas Ehlert 


Advantage 


Bei dem Spiel Advantage 
werden verschiedene far- 
bige Kugeln in ein Laby- 
rinth von beweglichen 
Hebeln geworfen, die je 
nach ihrer Stellung die 
Kugeln festhalten bzw. 
freigeben. 
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Jeder Spieler muß eine 
vorgegebene Anzahl von 
Kugeln je Farbe durch 
das Labyrinth bringen. 

Der Spieler, dessen Ku- 
geln alle das Ende des La- 
byrinth zuerst erreicht 
haben, ist Sieger. 


TI-Fall: 


Herzlich willkommen zu 
TI-Fall, einer mehr oder 
weniger gelungenen 
Nachahmung des berühm- 
ten Pitfall.e. Zu Beginn 
meiner Version von Pit- 
fall werden Sie mit den 
Rhythmen von La Cuca- 
racha gleich in die Ur- 
waldatmosphäre einge- 
stımmt. 

Und nachdem es sich 
um eine Nachahmung 
handelt, ist auch hier das 
Ziel des Spielers, mög- 
lichst viele Bilder unbe- 
schadet zu durchlaufen 
und dabei so viel Punkte 
zu sammeln, wie nur 
möglich. Punkte liegen 
dabei in Form von Gold- 
barren umher und um 
diese aufzusammeln, 


braucht man nur mit sei- - 


nem Männchen, genannt 
Cuthbert, darüberzulau- 
fen. 

Daß das Ganze natür- 
lich nicht so einfach ist, 
versteht sich eigentlich 
von alleine. Lagerfeuer, 
Baumstämme, Skorpione, 
Tümpel und gefährliche 
Vögel bilden den Reiz 
des Spieles. 

Mit ihrem Joystick 
haben Sie nun die Mög- 
lichkeit, ihren Cuthbert 
nach links oder rechts 
laufen zu lassen oder ihn 
mit dem Fire Button Hin- 
dernisse überspringen zu 
lassen. 

Leider ist das Listing 
nicht besonders übersicht- 
lich und daher nicht so 
einfach einzutippen, je- 
doch sollte Sie der Spiel- 
spaß dafür entschädigen. 

Michael Schneller 





LO U KKKRKKRKRKKRRRRRKRRTRRRRK 
11% * 
121% TI-FALL * 
131% + 
14% Copyright by * 
15 ! % Michael Schneller X* 
16! * * 
19 ! %* Benoetigte Geraete * 
20 ! * TIP9/4A Konsole #* 
zıı * Ext. Basic * 
221% Joystick (1) * 
231% * 
26 ! * Speicherbelegung * 
271% 9093 Bytes * 
28 ı %* * 
ZU KKRRRKKNRKKKTRTRRTTHT NR 
30 ! 


100 CALL CHAR (34, "FEFDFBF?EF 
DFBF?F?FBFDFEFF?FBFDFE") 

110 A$=RPTSC"F" ,16):: CALL C 
HAR (112,A$,96,A$, 97, "0303030 
303030303"):: CALL COLOR (9,1 
2,2,10,12,2,31,13,11,1,11,3) 


120 CALL CHAR(113,""):: RAND 
OMIZE :: CALL SCREEN (2):: CA 
LL CLEAR :: CALL MAGNIFY(3) 


130 CALL CHAR (100, "OCOCOO1C1 
C28381800131414E2820203"&RPT 
$("0",32),104, "0COCO00C1CICA 
CICOOOCGEGA3E2SOSOC "KRPTS("O 
",32)) 

140 CALL CHAR (108, "181800183 
C3AZA1300186433000000" KRPTS$( 
0% .32)) 

150 CALL CHAR (116,RPT$("0",1 
8)&"708D0303038D72"&KRPTS("O" 
‚17)&"CO2FIFPFEFOEOL") 

160 CALL CHAR (120,RPT$("0",1 
&)%&"30408F9F7FOFO708"KRPTS(" 
0" ,19)&K"EBICOCOCOBI4E") 

170 CALL CHAR (124,RPTS$("F",6 
4),128, "COFOFC"&RPTS("F",20) 
&"FCFOCOO0000000C0FOFCFEFEFC 
FOC") 

180 CALL CHAR (132, "000000000 
30F3F7F7F3FOFO300000000030F3 
F"&RPTSC"F",20)&"3FOF03") 
190 CALL CHAR (136,RPT$("0",1 
&)&"OLO7IFFEFEIFOFOL"RRPTS(" 
0",16)&"80OEOF8?7F?7FFSEOS") 
200 CALL CHAR (48, "OOFEC&CSCE 
CöCEFE",49,"0018181813181818 
"50, "OOFEOSOKFECOCOFE", Si," 
OOFEOKOS3EOKOGKFE") 

210 CALL CHAR (52, "0O0D8DSDSFE 
181818" ,53, "OOFECOCOFEOSOKFE 
",54,"O00COCOCOFECECKFE",S5," 
OOFEOSOKZE0K0K0E") 

220 CALL CHAR (56, "OOFECSCHFE 
CECEFE" ,57, "OOFECSCKFE060S06& 
") 
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230 RESTORE 1020 ::; 
TO 90 :: READ C$ :: 
AR(I,C$) NEXT I 
240 CALL CHAR (92, "0000000000 
30CD0O30301000000000000000000 
OO0O0OGCB3COCOS") 
250 RESTORE 1160 :: FOR I=1 
TO 5 ::5 READ V(I):: NEXT I 
260 CALL CHAR (33, "FF8Si181SIFF 
8s18181",140, "OLOSO7OFOFOFOFO 
70300010204040201C0OE0OBODSDSB 
SFSFOEOS") 


270 DIM SPS(91),LL(91):: 
0 :: M(1)=97? M(2)=225 
DEF SKS=INT (200%$RND) +40 
280 CALL CHAR (42, "1082105400 
FEFEFEFFS1S1SIFFSE1S18L1"):: C 
ALL COLOR (2,16,11) 

290 RESTORE 1080 FOR LI=1 

TO 91 ©: READ SPS(LI),L :: 

LL(LI)J=1000/L ::5 NEXT LI 

300 CALL CHAR (44, "0000010103 
0303070D1E3F7&7E7D3F1FO08080 
COCOCOAOFOFSACFCBECEFEBCFS") 


S310 CALL VORSPANN (SPS(),LL(O 


FOR 1=65 
CALL CH 


.” 
.. 


:: HI= 


)2: MA=4 :: \=31 :: _=-1 
CALL CLEAR :: CALL BAUM :: C 
ALL HCHAR (24,15,100,MA-1):: 
[(1)=100 :: [(3)=104 

320 DISPLAY AT(24,19):"HI:"5 
HI :: GOTO 400 

330 Q=1 :: DISPLAY AT(24,1?7) 
"HI: "SHI 


340 CALL JOYST(1,X,Y)ıı _=-_ 
:2 CALL KEY(1,K,8):: IF Y=4 
THEN 520 ELSE CALL MOTION (# 

1,0,%%1.5):: IF K=18 THEN 81 


0 ELSE CALL POSITION(#1,Y1,N 


) 

350 IF N<15 THEN 510 ELSE IF 
N>240 THEN &00 ELSE CALL PA 

TTERN (#1, L(_+2)):: CALL GCHA 

RUF TII/BDIHLLCIN+I/B) HE: 
IF H=32 THEN 540 ELSE IF H= 

42 THEN 570 

360 ON @ GOTO 340,380,420,43 
0,490, 450,420 

370 GOTO 340 

380 C=C+1 CALL COINC (ALL, 

E)t: IF E THEN 910 ELSE IF C 

=4 THEN 390 ELSE 370 

390 IF 0=0 THEN CALL SPRITE( 
#2,124,5,31,113,#3,128,5,81, 
129,#4,132,5,81,97?):: C=O EL 
SE CALL DELSPRITE (#3,#2,#4): 
: C=0 

400 IF 0=0 THEN O=1 ELSE 0=0 

410 GOTO 370 

420 CALL COINC(ALL,E):: 
THEN 910 ELSE 340 


IFE 





430 CALL POSITION(#2,Y2,X2): 
: CALL MOTION(#2,0,SGN(N-X2) 
*5):: IF SGN{N-X2)=-1 THEN C 
ALL PATTERN(#2,116)ELSE CALL 
PATTERN (#2, 120) 
440 GOTO 420 
450 FE=-FE :ı 
60,460,470 
460 CALL LOCATE (#2,73,80):: 
GOTO 480 
470 CALL LOCATE(#2,193,1) 
480 GOTO 420 
490 ZV=ZV+H1 :: 


ON FE+2 GOTO 4 


IF ZV>5 THEN 


Zv=0 
500 CALL MOTION(#11,V(ZV),-1 
O)s: GOTO 420 


510 CALL MOTION(#1,0,0):: CA 
LL LOCATE(#1,\,20):: 60TO 34 
) 


520 CALL MOTION(#1,0,0):: CA 
LL GCHAR (INT ((\+7)/8)-2,INT( 
{N+7)/8),H):: IF H=33 THEN 5 
30 ELSE 360 

530 FOR @=153 TO 81 STEP -9 
CALL LOCATE(#1,@,121):: € 
NE 


ALL SOUND (-100,@+100,0):: 
xT@:: \=81 G0TO 380 
540 CALiL MOTION(#1,0,0):: CA 
LL MOTION(#1,30,0):: FOR @=1 


TO 100 :: NEXT @ :: CALL MO 
TICN(#1,0,0):: CALL LOCATE(#: 
1,153,N) 

550 \=153 :: CALL SOUND (-100 


‚-8,0,220,30,220,30,330,30): 
: G60TO 340 

560 GOTO 360 

570 CALL MOTION(#1,0,0,#2,0, 
0,#11,0,0):: FOR SOU=0 TO 30 
STEPF 2 CALL SOUND (-100,3 
80,5Q0U,640,80U):: NEXT SOU 

580 FOR @=1 TO 10 :: P=P+100 

CALL PU(P):: CALL SOUND( 
-50,843,1):: NEXT @ 

590 CALL HCHAR(((\+7)/8) #1 
(N+7)/8), 113): CALL PU(P) 
GOTO 340 

600 CALL DELSPRITE(ALL):: FO 

R S=0 TO 30 STEP 2 CALL $ 

OUND(-100,262,8,330,8,392,8) 
ı: NEXT S 

610 P=P+100 :: 

@=INT (7XRND) +1 

620 CALL HCHAR(10,1,113,128) 
12 CALL VCHAR(15,16,32,9):: 
CALL HCHAR(19,1,113,128) 

630 ON & GOSUB 650, 660,670,7 


„it 


CALL. PU(P):: 


10,800, 750,780 

640 CALL SPRITE(#1,100,5,\,2 
0)::5 GOTO 340 

650 CALL LOCH(1):: CALL BAR( 
2):: RETURN 
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660 0,C=0 :: CALL BAR(1):: R 


ETURN 
670 CALL LOCH(1):: G=INT(2XR 
ND)I+1 :: FOR @=1 TO G :: CAL 


L SPRITE(#@+1,136,12,81,M(@) 
)z: NEXT @ 


680 D=INT(2XRND)I+1 :: FOR @= 
1 TO D :: CALL SPRITE (#@+4,1 
36,12,153,M(@)):: NEXT @ 

690 R=INT(7XRND)-12 :: Ri=IN 
TISXRND) -13 FOR @=1 TO 6 

CALL MOTION(#@+1,0,R):: N 
EXT @ 

700 FOR @=1 TO D 
ION (#@+4,0,R1):: 
ETURN 

710 CALL LOCH(1):: @=INT(ZXR 
ND):: IF @=1 THEN CALL SPRIT 
E(#2,116,16,81,5KS,0,-S)ELSE 
CALL SPRITE(#2,116,16,153,8 
KS,0,-5) 

720 IF @=1 THEN Y6=153 ELSE 
YG=81 


ss CALL MOT 
NEXT ::-R 


730 U=INT(2XRND)+1 :: FOR @= 
1 TO U :: CALL SPRITE(H@+2,1 
36,12,Y6,Ml@)):: NEXT @ :: ) 
=INT(SXRND) -13 

740 FOR @=1 TO U :: CALL MOT 
ION(#@+2,0,)):: NEXT @ :: RE 
TURN 

750 CALL BAR(2):: CALL HCHAR 


(12,11,34):: CALL HCHAR (12,1 
2,35):: CALL SPRITE(#2,44,7, 
73,80):: CALL LOCH(2) 

760 @=INT(2#XRND):: IF @=0 TH 
EN FE=-1 ELSE FE=1 

770 IF RND>.S THEN CALL SPRI 
TE(#3,136,2,153,240,0, INT (6* 
RND)-12):: RETURN ELSE RETUR 
N 

780 CALL SPRITE(#2,124,5,81, 
113,#3,132,5,81,97,#4,128,5, 
81,129,#10,140,7,65,97,0,9) 
790 CALL BAR(1):: RETURN 


800 ZV=0 :: CALL SPRITE (#11, 
92,16,65,233):5 CALL BAR(1): 
: RETURN 


810 CALL MOTION(#11,0,-7):: 
CALL SOUND(50,380,0):: CALL 
PATTERN (#1, 108) 

820 FOR @=-18 TO 18 STEP 6 : 
: CALL MOTION (#1,@,%%2.5):: 
CALL POSITION(#1,Y1,N):: IF 
N<10 THEN 510 ELSE IF N>240 
THEN 600 

830 CALL COINC(ALL,E) 
THEN 850 

840 NEXT @ :: CALL MOTION (#1 
‚0,%%2.5):: CALL LOCATE(#1,\ 
‚N):: GOTO 350 


IFE 





850 CALL MOTION(#1,0,0,#10,0 
‚0O):: CALL COINC(#1,#10,15,E 
:: IF E=0 THEN 910 

860 CALL MOTION(#1,0,9,#10,0 
‚ 

870 FOR 5=1 TO 90 :: 
UND(LL(S),SPS(S),0) 
EY(1,K,Z):: IF K=18 THEN 890 
880 NEXT S GOTO 870 

890 CALL SOUND(-100,392,0):: 


CALL SO 
ss CALL K 


 CALL MOTION(#1,0,0):: CALL 
POSITION(#1,Y1,N):: CALL LOC 
ATE(#1,\,N) 


900 GOTO 360 

910 CALL MOTION(#1,0,0):: CA 
LL DELSPRITE (#2,#3,#4,#5, #6, 
#7,#8):: FOR I=1 TO 10 cA 
LL SOUND (-10,262,0) 

920 CALL SOUND(-10,523,0):: 

NEXT I CALL MOTION(#1,120 
‚0 

930 CALL POSITION(#1,Y1,ND:: 
IF Yi<185 THEN 930 

940 CALL DELSPRITE (#1):: 
@=0 TO 30 STEP 2 

UND(-50,-6,@):: 

950 MA=MA-1 CALL HCHAR (24 
‚15,32,3):: IF MA=0 THEN 970 
ELSE CALL HCHAR (24,15, 100,M 

A-1) 

960 GOTO 600 

970 CALL DELSPRITE(ALL):: D 

SPLAY AT(17,M:"GAME O0 

VER" IF P>HI THEN HI=P 

DISPLAY AT(24,19): "HI:"5H 


FOR 
CALL 50 
NEXT @ 


I 


I 

980 CALL VCHAR (15,16,32,4) 
990 FOR S=1 TO 91 :: CALL SO 
UND(LL(S),SPS(S),O) CALL K 
EY(O0,K,Z):: IF Z=0O THEN 

1000 ELSE 1010 

1000 NEXT S 
1010 CALL CLEAR 
TO 310 

1020 DATA OOFECSCSCKFECECE,O 
OFECSCSFSCSEC5FE,OOFECOCOCOCO 
COFE,OOFSCSCSCSCSC5EFS,OOFECO 
COFSCOCOFE 

1030 DATA OOFECOCOFOCOCOCO,O 
OFECOCODECSCSFE , OOCSCACHFECH 
C6C6,0018181818181818, 00FEO6& 
OS0SCSCHFE 

1040 DATA OOCCCCCCFOCCCCCC,O 
OCOCOCOCOCOCOHFE , OOFEDSDKC EACH 
C6C6,00F&FSFÖFSCECECE, O0OFEC6 
CSCS5CSöCcörFE 

1050 DATA OOFECSCKFECOCOCO,O 
OCCCCCCCCCEFD,OOFECSCKFEEODS 
C&,00FECOCOFEOSOGFE,OOFE1818 
18181818 

1060 DATA O0OCSCSCSCäcähtörFE,O 


G0TO 990 
:ı P=0 :; 


Go 
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0655555518181, 00C5ECACEDEDE 
DSFE, O0OCSCACETSCAÄcÄch 

1070 DATA O0C6SCKFE30303030,0 
OFEOSOCSSSOCOFE 


1080 DATA 131,8,131,8,131,8, 
175,8,30000,4,220,8,30000,8, 
131,8,131,8,131,8 

1090 DATA 175,8,30000,4,220, 
8,30000,2,30000,8,175,4,175, 
8,165,8,165,8,147,8, 147,8 


1100 DATA 131,2,30000,8,131, 
8,131,8,131,8,165,83,30000,4, 
196,3,30000,8,131,8,131,8,13 
1,8 

1110 DATA 165,8,30000,4,196, 
8,20000,2,20000,8,262,4,294, 
8,262,8,233,8,220,3,196,8 
1120 DATA 220,3,175,8,175,8, 
131,4,131,8,175,8,175,8,220, 
8,220,8,262,4,220,8,220,2 
1130 DATA 30000,8,262,4,294, 
8,262,8,233,8,220,3,262,8,23 
3,3,196,8,196,2,30000,8,131, 
4 


1140 DATA 131,8,165,8,165,8, 
196,8,196,3,233,3,196,8,196, 
2,30000,89,233,4,233,8, 262,8, 
233,8,220,8 

1150 DATA 196,8,220,3,175,8, 
175,2,30000,8,220,3,175,8,17 
5,8,175,8 

1160 DATA 10,5,0,-5,-10 

1170 SUB BAUM 


1180 FOR @=3 TO 21 STEP 9 :: 
DISPLAY AT(1,@):" ppp" :: 
DISPLAY AT(2,@):" pppppp" 


1190 DISFLAY AT(3,@):"PPppppPp 


pp" :: DISPLAY AT(4,@):" ppp 
Ppp" :: DISPLAY AT(5,@):" Pp 
PPP" 


'a 


re 


1200 DISPLAY AT(&,@):"... 
"as: DISPLAY AT(7,@):"... 
"ss DISPLAY AT(8,@:"..' 

» DISPLAY ATI, az." rt 


e 
® 
ern 
rer 


1210 NEXT @ ::; 
‚1,113,129):: 


CALL HCHAR (10 
CALL HCHAR (14, 


1,112,32):: CALL HCHAR (19,1, 
113,128) 

1220 CALL HCHAR(23,1,112,32) 
:: SUBEND 

1230 SUB TI(Z):: FOR @=1 TO 
Z :: NEXT @ :: SUBEND 

1240 SUB PU(P):: DISPLAY AT( 
24,1)SIZE(7):P :: SUBEND 


1250 SUB LOCH(LI) 
1260 ON L] GOTO 1270,1280,12 
90 

1270 @=INT(ZXRND):: IF @=1 T 
HEN CALL HCHAR(12,8,32,2!:: 


CALL HCHAR (13,8,32,2) 

1280 @=INT(2XRND):: IF @=1 T 
HEN CALL HCHAR (12,15,32,3):: 
CALL HCHAR (13,15,32,3):: CA 
LL VCHAR (15,16,33,4):: CALL 

HCHAR (13, 16,33) 

1290 @=INT(2XRND):: IF @=1 T 
HEN CALL HCHAR (12,25,32,2):: 
CALL HCHAR (13,25,32,2) 

1300 SUBEND 

1310 SUB VORSPANN (SPS(),LL() 
) 


1320 CALL BAUM 
(19,1,32,160):: 
7,4,96,5) 

1330 CALL HCHAR(17,2,96,5):: 
CALL VCHAR (17,8,96,5):: CAL 
L HCHAR(19,10,96,2):: CALL V 
CHAR (17,13,96,5) 

1340 CALL HCHAR (17,14,96,3): 
© CALL HCHAR(19,14,96,2):: C 
ALL VCHAR(17,18,96,5):: CALL 
HCHAR (17,19,96,2):: CALL VC 
HAR (17?,21,96,5) 

1350 CALL HCHAR (20,19,96,2): 
: CALL VCHAR(17,23,96,5):: C 
ALL HCHAR (21,24,96,3):: CALL 
VCHAR (17,28,96,5) 

1360 CALL HCHAR(21,29,96,3): 
: DISPLAY AT(24,1):"<C)1985 
BY MICHAEL SCHNELLER" 


ss: CALL HCHAR 
CALL VCHAR (1 


1370 FÜR @=3 TO & :: CALL CO 
LOR(@,16,1):: NEXT @ 
1380 FOR S=1 TO 90 :: CALL S 


OUND(LL(S),SPS(S),O):: CALL 
KEY(0,K,Z2):: IF Z=0 THEN 139 
0 ELSE SUBEXIT 

1390 NEXT S 
1400 SUBEND 


GOTO 1380 


1410 SUB BAR(\):: ON \ GOTO 
1420, 1430 
1420 @=INT(S#RND):: IF @>2 T 


HEN CALL HCHAR (21,20,42) 
1430 @=INT(S#RND):: IF @2 T 


HEN CALL HCHAR (12,23,42) 
1440 SUBEND 





KRRRKKRRKRKRKTKRTTITKTTK 


| 
11% * 
121% SPICKZETTEL * 
131% * 
14% Copyright by * 
151% Peter Hlawna * 
16! * * 
19 ! % Benoetigte Geraete + 
20 ! % TI99P/4A Konsole * 
21! % Ext. Basic * 
221% Joystick (1) * 
231% & * 
26 ! %* Speicherbelegung * 
271% 11576 Bytes * 
28 !ı * % 
ZI KRRKKRRKRKKKKRTTIRIINNH 
30 ! 
400 RANDOMIZE :: Q=1 :: GES= 

s: SCHWER=.08 :: ZEIT,COUN 
T,P,RU,SCH=0 :: FACH$="RELIG 
ION" 
410 ! 
420 ! ZEICHENDATAS 
430 ! 


440 DATA O30F1iF312EOE6EF1,BE 
DDSDOE07020206 , COFOF88C74707 
68F ‚ 7DBYBB72E24060 

450 DATA O30F1F312EOE6EFI,BE 
9DDD4E47020600 , COFOF88C74707 
68F , 7DBBBA?0E0404060 

460 DATA OF1F30203F292620, 21 
200113100003, F8FCO60ZFE4A328 
2,4202C0E40418E0 

470 DATA 0047CFDFFF?FIFOF,07? 
03, 00E2F3FBFFFEF8FO,EOCO 

480 DATA 0505050505050505, ‚4 
040404040404040, 

490 DATA 0000010204040404, ‚0 
000804020202020, 

500 DATA FFFFFFFFFFEIEFEi,EF 
EIEFEIEFEIFFFF ,FFFFFFFFFFOFE 
FOF ,„EFOFEFOFEFOFFFFF 

510 RESTORE FOR I=96 TO 1 
23 :: READ A CALL CHAR(I 
‚As):: NEXT I 

520 CALL CHAR (142, "010204081 
0204080FF") 

530 CALL COLOR (12,7,7,10,2,1 
6,14,1,16,13,13,13,1,16,16) 
540 ! BILDSCHIRMAUFBAU 

550 CALL CLEAR :: CALL SCREE 
N(2):: CALL MAGNIFY (3) 





UNSER 
Z TELEFONSERVICE & 


Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf 
der Leserbriefseite 
ACHTUNG !!! 

Wie immer steht unseren Lesern unser Telefon- 
Service zur Verfügung! Jeden Dienstag von 15 bis 
19 Uhr. Für technische Fragen: 0731/33 220 und 
für Listings/Programme: 089/129 8013 





560 DISPLAY AT(1,3):"0 MIN”& 
RPT$S(CHR$(129),14)&"PKT 0" 
570 FOR I=6 TO 21 STEP 5 

580 DISPLAY AT(I,i1):"xzxz... 
OXZXZun eo XZX Zus u ı KZXZYl yl 5 
«ytyY{ı..:Yy{y{.o...yt{ytinin... 
.inin....ıinin....1ininmomo...' 
.MOMO. ...MOMDO. ...Mmomo" 

590 NEXT I 
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600 CALL TUERAUF :: CALL SPR 
ITE (#3, 104,2,17,256,0,-7):: 
CALL GONG CALL TUERZU 
610 DISPLAY AT(1,15-LEN(FACH 
$)/2)SIZE(LEN(FACHS) ) :FACHS 
620 CALL POSITION(#3,Y,X):: 
IF X<25 THEN 640 ELSE CALL K 
EY(0,K,S):: IF S<1 THEN 620 
630 IF K=1 THEN 1520 ELSE IF 
K=2 OR K=15 THEN CALL CLEAR 


s: CALL DELSPRITE(ALL)I:: CA 
LL HCHAR (1,1,47,768):: GOTO 
1780 ELSE 620 
640 CALL MOTION(#3,0,0):: FO 


R I=1 TO 300 NEXT I 

650 ! SPIELBEGINN 

660 CALL COLOR(12,7,8) 

670 CALL HCHAR (23, 19,32,2):: 
CALL HCHAR (24,19,32,2) 

680 CALL SPRITE(#1,96,14,177 
‚145) 

690 WERT=INT(RNDXS) +1 :: ON 
WERT GOSUB 1900, 1920, 1940,19 
60, 1980 

700 ORTV=INT (RND*4) %64+25 
ORTH=INT (RNDX4) #40+42 
710 CALL SPRITE(#4,128,16,0R 
TH,ORTV) 

720 CALL JOYST(1,XJ,YJ) 

730 CALL MOTION(#1,-2%YJ,2%X 
hi) 

740 IF XJ=0 AND YJ=0 THEN 76 
0 

750 Q@=-Q 
98+2%0) 
760 CALL KEY(1,K,8) 
770 IF K=18 THEN 840 


780 CALL COINC (#1,#4,10,A):: 
IF A=-i THEN 1130 

790 ZEIT=ZEIT+1 IF ZEIT/I 

O=INT(ZEIT/1O)THEN DISPLAY A 

Ti1,2)SIZE(Z):USING "#H":ZEI 

T/10-.5 :: IF ZEIT>=450 THEN 
1170 

800 COUNT=COUNT+1 

T<50 THEN 720 

810 CALL POSITION(#H1,Y1,X1,# 

3,Y2,%2):: CALL MOTION(#3,0, 

SGN (X1-X2) GES) 

820 IF RND<{SCHWER THEN 970 E 

LSE 720 

830 ! SCHUSS MAENNCHEN 

840 CALL POSITION(#1,Y1,X1: 
! CALL SPRITE(#2,116,13,Y1,X 
1,-100,0):: SCH=SCH+1 P=M 

AX(P-1,0) 

850 CALL COINC (#3,#2,10,A):: 
IF A=-1 THEN 940 

860 CALL COINC (#3,#2,10,A):: 
IF A=-1 THEN 940 


CALL PATTERN (#1, 


IF COUN 
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CALL 

=-i 
CALL 
A=-1 
CALL 
A=-1 
CALL 
A=-1 
CALL 
A=-1 
CALL 
A=-i 


COINC (#3,82,10,A):: 
THEN 940 
COINC (#3,82,10,A):: 
THEN 940 
COINC (#3,#2,10,A):: 
THEN 940 
COINC (#3,#2,10,A):: 
THEN 940 
COINC (#3, 82,10, A):: 
THEN 940 
COINC (#3,#2,10,A):: 
THEN 940 
CALL COINC (#3,#2,10,A):: 
A=-i THEN 940 ELSE DISPL 
AY AT(1,26) :USING "HH": 


CALL DELSPRITE(#2):: GOTO ? 
80 
940 CALL DELSPRITE(#2):: DIS 


PLAY AT(1,26) :USING "#HR":p 

950 CALL MOTION(#3,0,0):: FO 

R I=0 TO 20 STEP 2 CALL $ 

OUND(-100,-5,1):: NEXT I :: 

COUNT=0 :: GES=GES+1 :: SCHW 

ER=SCHWER+.02 -:: GOTO 780 

960 ! SCHUSS LEHRER 

970 CALL POSITION(#3,Y2,X2): 
: CALL SPRITE(#2,112,11,Y2,% 

2,100,0) 

980 CALL COINC(#1,#2,10,A):: 
IF A=-1 THEN 1090 

990 CALL COINC (#1,#2,10,A):: 
IF A=-1 THEN 1090 

1000 CALL COINC (#1,#2,10,A): 
: IF A=-1 THEN 1090 

1010 CALL COINC(#1,#2,10,A): 
: IF A=-1 THEN 1090 

1020 CALL COINC (#1,#2,10,A): 
: IF A=-1 THEN 1090 

1030 CALL COINC (#1,#2,10,A): 
: IF A=-1 THEN 1090 

1040 CALL COINC (#1,#2,10,A): 
: IF A=-i THEN 1090 

1050 CALL COINC (#1,#2,10,A): 
: IF A=-1 THEN 1090 

1060 CALL COINC(#1,#2,10,A): 
: IF A=-1 THEN 1090 

1070 CALL COINC (#1,#2,10,A): 

A=-1 THEN 1090 

CALL COINC (#1,#2,10,A): 

: A=-i THEN 1090 ELSE CAL 

L DELSPRITE(#2):: GOTO 720 

1090 CALL DELSPRITE(#2):: 

LL MOTION (#1,0,0,#3,0,0) 

1100 FOR I=550 TO 110 STEP - 

10 :: CALL SOUND(-100,1,5):: 
NEXT I 

1110 P=0 

0 1170 

1120 ! SPICKPUNKTE GEFRESSEN 

1130 CALL MOTION(#1,0,0):: C 

ALL DELSPRITE(#4):: CALL SOU 


ca 


SCH=SCH+5 GOT 





ND(-100, 110,5): 
0,500,5) 


1140 P=P+WERT :: DISPLAY AT( 
1,26) :USING "HHRR":P 


CALL SOUND( 
CALL SOUND (-10 


1150 COUNT=50 :: GOTO 690 
1160 ! STUNDE VORBEI 

1170 NOTE (RU)=1 

1180 IF P<100 THEN NOTE (RU)= 
2 

1190 IF P<80 THEN NOTE (RU)=3 
1200 IF P<60 THEN NOTE (RU)=4 
1210 IF P<40 THEN NOTE (RU)=5 
1220 IF P<20 THEN NOTE (RU)=6 
1230 CALL DELSPRITE(#4):: CA 
LL MOTION(#1,0,0,#3,0,0) 
1240 CALL GONG :: CALL COLOR 
(12,7,7?):: CALL TUERAUF :5 C 


ALL MOTION (#3,0,7) 
1250 CALL POSITION(#3,Y2,X2) 
IF X2>250 THEN 1280 ELSE 
IF S=0 THE 


CALL KEY(O,K,S):: 
N 1250 

1260 IF K=1 THEN 1520 ELSE I 
F K=2 OR K=15 THEN CALL CLEA 
CALL DELSPRITE (ALLI:S: C 
GOTO 


ALL HCHAR (1,1,47,768):: 
1780 

1270 G0TO 1250 

1280 CALL DELSPRITE(#3):: CA 

LL TUERZU CALL HCHAR (1,10 
‚129,14) 

1290 RU=RU+1 :: ON RU GOSUB 
1340, 1370, 1400, 1430, 1460, 149 

0,1510 

1300 ZEIT,COUNT,P=0 

HCHAR (1,27,32,5):: 

R(1,1,32,5) 

1310 G0TO 600 

1320 ! NEUE STUNDE 
1330 ! ERDKUNDE 

1340 CALL CHAR (104, "OF1IF1804 

OF 1424380E0F031F3F?F7C30F038 

TCFEFE666F570706BECHF ") 


.: CALL 
CALL HCHA 


1350 FACH$="ERDKUNDE" :: GES 
=4 :: SCHWER=.08 :: RETURN 
1360 ! BIOLOGIE 


1370 CALL CHAR (104, "0730405C 
4228696162404 22F3C1BOFO7EOIB 
047484282C0C8C0484E878BOEOCO 
") 


1380 SCHWER=.08 :: FACH$="BI 
OLOGIE" :: GES=4 :: RETURN 
1390 ! LATEIN 


1400 CALL CHAR (104, "0O0070E1O0 
08101F30508870100C13080700F0 
183C3C55DE2A0OAZAI1204040830C0 
”) 

1410 SCHWER=.12 
TEIN" GES=5 ; 


FACH$="LA 
RETURN 
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1420 ! ENGLISCH 

1430 CALL CHAR (104, "030F3C20 
1010213F6&0A0C422211D10O1F8BOEO 
7070F8F8FCBC1C5CIC1E18284080 
“7 


1440 SCHWER=.13 :: FACH$="EN 
GLISCH" :: GES=5 :: RETURN 
1450 ! DEUTSCH 


1460 CALL CHAR (104, "O71E3832 
30101008080908090A040201F03C 
0E2606048488884808C08281020C0 
” 

) 


1470 SCHWER=.15 :: FACH$="DE 
UTSCH" ::; GES=& :: RETURN 
1480 ! MATHEMATIK 


1490 CALL CHAR (104, "OAOF1F38 
323512101011101013090807A8F8 
FCOE2656240404440404E4C808FO 
") 


1500 SCHWER=.17 :: FACH$="MA 
THEMATIK" :: GES=6 :: RETURN 
1510 ! ZEUGNIS 

1520 CALL CLEAR :: CALL DELS 
PRITE(ALL):: CALL CHARSET :: 


CALL HCHAR(1,1,47,768):: 
LL TAFEL 
1530 CALL SCHRIFT (6,9, "ABSCH 
LUSSZEUGNIS") 
1540 CALL SCHRIFT (8,9, "FUER 
"&NAMES) 
1550 CALL SCHRIFT(10,9,"RELI 
GION. 222.2. "KSTRSINOTE(O))):: 
CALL SCHRIFT (11,9, "ERDKUNDE 
ernns "RSTREINOTE(1))) 
1560 CALL SCHRIFT(12,9,"BIOL 
OGIE. 2222. "KSTREINOTE (ZI )):: 
CALL SCHRIFT (13,9, "LATEIN.. 
arena "RSTREINOTE (3) )) 
1570 CALL SCHRIFT(14,9, "ENGL 
ISCH. 2222. "KSTRS(NOTE (A) )) 5: 
CALL SCHRIFT (15,9, "DEUTSCH. 
zerran "RSTREINOTE (5) )) 
1580 CALL SCHRIFT (16,9, "MATH 
EMATIK. . .. "&STRS(NOTE (6) )) 
1590 IF SCH{26 THEN BETR$="S 
EHR GUT" 
1600 IF SCH>2S THEN BETR$="G 
UT" 
1610 IF SCH>SO THEN BETR$="S 
CHLECHT*® 
1620 IF SCH>?S THEN BETR$="S 
EHR SCHLECHT" 
1630 CALL SCHRIFT(18,9,"BETR 
AGEN: "&BETRS$) 
1640 IF D$<>"J" AND De<>y"j" 
THEN 1750 
1650 ! ZEUGNIS AUSDRUCKEN 
1660 OPEN #1: "RS232" 
1670 PRINT #1:TAB(6) 5 "ABSCHL 
USSZEUGNIS": : ı 1 ı 
1680 PRINT #1:TAB(4)5 "fuer " 


cA 





NAMES: : "Schueler des TI-Gy 
mnasiums": : ; 

1690 PRINT #1:TAB(6) ; "Religi 
ON. sv s2200. "3 STRSINOTE(O)): : 
TAB(S6) 5; "Erdkunde. . vs... "3ST 
RS(NOTE (1): 


1700 PRINT #1:TAB(6);"Biolog 
ie. seen 00. "3 STRS(NOTE (ZI): : 
TAB(6) 5 "Latein... voecc22."$ ST 
R$S (NOTE (3)): 

1710 PRINT #1:TAB(6) 5; "Englis 
Ch..seerr. "3STRELNOTE(4)): : 
TAB(6) 5."Deutsch.....222.2."}ST 
RS(NOTE (5)): 


1720 PRINT #1:TAB(64); "Mathem 
atik......"3STR$SLNOTE (6)): 5 


1730 PRINT #1:"Das Betragen 
des Schuelers war durchwegs 
";BETR$5".":"Die Mitarbeit 1 
iess zu wuenschen uebrig." 
1740 CLOSE #1 

17350 FOR I=1 TO 500 :: CALL 
KEY(0,K,S):: IF S<>O THEN 17 


90 

1760 NEXT I 

1770 ! NEUES SPIEL ? 

1780 IF K=15 THEN 1820 

1790 CALL TAFEL :: CALL SCHR 
IFT(8,3, "WILLST DU WEITERMAC 
HEN ODER.....GLEICH VON DER 


SCHULE GEHEN?" ) 

1800 CALL KEY(0,K,S):: 

O0 THEN 1800 

1810 IF K<>74 AND K<>106 THE 

N END 

1820 CALL TAFEL 

1830 CALL SCHRIFT(10,14,"NAM 

E:®) 

1840 ACCEPT AT(13,8)VALIDATE 
(UALPHA)SIZE(-14) : NAMES 

1850 CALL TAFEL CALL SCHR 

IFT(10,3,"1ST DER DRUCKER AN 

GESCHLOSSEN" ) 

1860 CALL KEY(0,K,S):: 

0 THEN 1860 

1870 D$=CHR$(K):: FOR I=0 TO 

NOTE(I)=0 ;: NEXT I 

1880 CALL TAFEL :: GOTO 400 

1890 ! CHARDEFINITIONEN FUER 
SPICKPUNKTE 

1900 CALL CHAR (128, "00000000 

03070F0303030303" ,130,"",131 
nn) 

s 

1910 RETURN 

1920 CALL CHAR (128, "00000000 

0307060000010307070000000000 

0000C0E06060E0COSOEOEO* ) 

1930 RETURN 

1940 CALL CHAR (128, "00000000 


IF $= 


IF $= 
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0307000303000703000000000000 
O000C0EO60E0EOSK0EOCO" ) 

1950 RETURN 

1960 CALL CHAR (128, "00000000 
0606060607070000000000000000 
00000000C0C0E0EOCOCO" ) 

1970 RETURN 

1980 CALL CHAR (128, "00000000 
0707060707000707000000000000 
O000EOEO00EOEO6OEOEO" ) 

1990 RETURN 

2000 DATA 500, 784,500, 659,50 
0,587,500, 659,300, 44733 

2010 DATA 500,659,500,784,50 
0,784, 200,698, 200,459, 500,58 
7,300, 44733 

2020 DATA 400,659,400,622,40 
0,659,400,622,400,659,400,62 
2,500,784 

2030 DATA 200,330,200,311,20 
0,330,200,311,200,330, 200, 31 
1,300, 349 

2040 DATA 200, 262,300, 262,40 
0,294 

2050 ! UNTERPROGRAMME 

2060 SUB TAFEL 

2070 CALL CHAR (47, "FFFFFFFFF 
FFFFFFF", 128, "FEFEFEFEFEFEFE 
FE") 

2080 CALL COLOR(13,13,2,9,15 
‚15,1,13,13,0,13,13):: FOR I 
=2 TO 8 :: CALL COLOR(I,16,1 
S):ı NEXT I 

2090 FOR I=19 TO 24 
HCHAR (1,11,96, 12) :: 
2100 FOR I=1 TO ? :: CALL vVC 
HAR(6,1,32,13):: NEXT I 

2110 CALL VCHAR(6,8,128,13) 
2120 FOR I=9 TO 23 :: CALL V 
CHAR (6,1,32,13):: NEXT I 
2130 CALL VCHAR(6,24,128,13) 


.s CALL 
NEXT I 


2140 FOR 1=25 TO 32 :: CALL 
VCHAR (6,1,32,13)::5 NEXT I 
2150 SUBEND 

2160 SUB TITEL (D$,NAME$) 
2170 CALL CLEAR :: CALL SCRE 
EN(2):: CALL HCHAR(1,1,97,76 
8):: CALL TAFEL 


2180 CALL SCHRIFT (8,11, "WILL 


KOMMEN ZU"):: CALL VCHAR(12, 
12,47,5):: CALL HCHAR (12,13, 
47,3) 


2190 CALL HCHAR (16,13,47,3): 
s CALL HCHAR (14,13,47) 

2200 FOR I1=17 TO 21 :: CALL 

HCHAR (1-5,1,47):: CALL HCHAR 
(33-1,1,47):5 NEXT I 

2210 CALL MUSIK CALL TAFE 
L 

2220 CALL SCHRIFT (10,14, "NAM 
E:")ss ACCEPT AT(13,8)VALIDA 





TE (UALPHA)SIZE(-14) : NAMES 
2230 CALL TAFEL 

2240 CALL SCHRIFT(10,3,"1ST 
DER DRUCKER ANGESCHLOSSEN" ) 


2250 CALL KEY(0,K,S):: IF $S= 
OO THEN 2250 

2260 DS=CHRS$(K) 

2270 CALL TAFEL :: CALL SCHR 


IFT(10,3, "WILLST DU DIE SPIE 
LANLEITUNG") 


2280 CALL KEY(0,K,S):: 
O0 THEN 2280 

2290 IF K<>74 AND K<>106 THE 
N CALL TAFEL GOTO 2320 

2300 CALL TAFEL :: CALL SCHR 
IFT(7,2, "OBWOHL DU WEISST,DA 
SS IHR HEUTE EINIGE EX 
EN SCHREIBEN WERDET, HAST 
DU NICHTS GELERNT.") 

2310 CALL SCHRIFT(13,2, "SAMM 
LE SPICKPUNKTE UND LEGE. .... 
LEHRER MIT UHAKEN LAHM. 
....HUETE DICH VOR SEHSTRAHL 
EN.") 

2320 SUBEND 

2330 SUB GONG 

2340 FOR 1=550 TO 220 STEP - 
110 :: FOR J=0 TO 18 :: CALL 

SOUND (-100,1,J)::5 NEXT J ::; 
NEXT I 

2350 SUBEND 

2360 SUB TUERAUF 


IF $= 


2370 FOR I=1 TO 3 :: CALL HC 
HAR(5-1,29+1,142):: NEXT I 
2380 FOR I=i1 TO 100 :: NEXT 
I 

2390 FOR I=1 TO 3 :: CALL HC 
HAR(5-1,30,32,3):: NEXT I 


2400 CALL HCHAR(2,29,143,4) 
2410 SUBEND 

2420 SUB TUERZU 

2430 CALL HCHAR(2,29,32,4) 


2440 FOR I=1 TO 3 :: CALL HC 
HAR (5-1,29+1,142):: NEXT I 
2450 FOR I=1 TO 100 :: NEXT 
I 

2460 FOR I=1 TO 3 :: CALL HC 
HAR(S-1,29+1,32):: NEXT I 


2470 SUBEND 

2480 SUB SCHRIFT(Z,S,A$) 
2490 FOR I=1 TO LEN(AS) 

2500 IF S-1+1>32 THEN Z=2+2 
2: 5=5-32 

2510 CALL HCHAR(Z,5-1+1,ASC( 
SEG$(A$,1,1))) 


2520 FOR J=i TO 10 :: NEXT J 
»: NEXT I 

2530 SUBEND 

2540 SUB MUSIK 

2550 FOR J=i TO 2 :: RESTORE 
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2610 :: FOR I=1 TO 23 :: RE 
AD A,B,C,D :: CALL SOUND(A,B 
‚0,0,9,D,9) 

2560 CALL KEY(0,K,S):: IF & 

>0 THEN 2700 
2570 NEXT I :: NEXT J 
2580 FOR J=1 TO 2 :: RESTORE 

2660 :: FOR I=1 TO 20 :: RE 
AD A,B,C,D :: CALL SOUND(A,B 
‚0,0,9,D,9) 

2590 CALL KEY(0,K,S):: IF & 

>0 THEN 2700 
2600 NEXT I :: NEXT J :: GOT 
0 2550 


2610 DATA 300,494,494,494,10 
0,523,523,523,400,587,147,14 
7,400,587, 185,220, 300,587, 18 
5,220,100,494, 185,220 

2620 DATA 300,440,262,165,10 
0,494, 262,165,400,392,196, 19 
6,400,392,294,247,400,392,29 
4,247 

2630 DATA 300,494,494,494,10 
0,494,494,494,300,440,220,22 
0,100, 392,220, 220,400,330, 16 
5,165,300,330, 262,220 

2640 DATA 100,330, 262,220,30 
0,494,196,196,100,494,196,19 
6,400,440, 185, 185,400, 440,22 
0,220,800,440, 262,262 

2650 ! DATA 400,44733,44733, 
44733 

2660 DATA 400,587,247,196,40 
0,587,247,196,400,587,247,19 
6,300,587, 247,196, 100,659, 24 
7,196 

2670 DATA 300,440,220,185,10 
0,440,220,185,300,440, 220,18 
5,100,440,220,185,800,440,22 
0,185 

2680 DATA 300,440,220,185,10 
0,440,220,185,300,440,220,18 
5,100,440,220,185,800,440,22 
0,185 

2690 DATA 300,392,247,196,10 
0,392,247,196,300,392,247,19 
6,100,392,247,196,800, 392,24 
7,196 


2700 SUBEND 


2710 ! 

2720 1 KKRRKRKKKTRRRRKKRINK 
2730 ! 

2740 ! AEHNLICHKEITEN DER 
2750 ! LEHRER MIT LEBEN- 
2760 ! DEN ODER TOTEN PER- 
2770 ! SONEN SIND REIN ZU- 
2780 ! FAELLIG !! 

2790 ! 

2ZEOO 1 KKRRRRRKKRRRRRKKTTINK 





LO 1 KRRKRKRRKRKRREKRKRRRNR 
1! * 

121% ADVANTAGE * 
131% * 
14 ı * Copyright by * 
15 ! * Joerg Ruebesamen + 
16 ! * * 
19 ! * Benoetigte Geraete # 
20 !ı * TI9P9P/AA Konsole * 
zı !' * Ext. Basic * 
221% * 
26 ! * Speicherbelegung * 
271% 4025 Bytes * 
28 ı * * 
DI U KRRRKRKKRRRKRRRRTRTTNTNN 
120 CALL CLEAR 

130 FOR I=1i TO 72 :: PRINT " 
ADVANTAGE"; 

140 NEXT I 

150 DISPLAY AT(10, 1): "ca 
realer 
VEBIOLA 1984 LTD. .vveeseun0ne 
160 OPTION BASE 1 

170 FOR I=1 TO ? :: CALL COL 
OR(1,16,15)::5 NEXT I :: CALL 


COLOR (10,10,15,11,16,15,12, 
2,15,9,13,15,8,16,15,0,15,15 


) 
180 DIM AM(3),K(4,30,2),C(3) 
190 C(1)=120 C(2)=104 :: 
c(3)=112 

200 IF RND>.S THEN PL=1 ELSE 
PL=1.5 

210 RANDOMIZE 

220 ON WARNING NEXT 

230 DATA COFFFFFF1COE0703,03 
O1 ,O3FFFFFF3870E0C0 , COEOFO?8 
3C 1EOFO?, 000000000000008 

240 DATA 0000000000000001 ,03 
070F1E3C78FOE,CO8, 1818181818 
181818 

250 DATA 4,4,4,10,4,16 

260 DATA 9,1,9,7,9,13,9,19 

270 DATA 14,4,14,10,14,16 


280 DATA 19,1,19,7,19,13,19, 
19 
290 A$="0000000A041F040A" :: 


CALL CHAR (120,A$, 104, "00000 
OlFIFIFIFIF",112,A$) 
300 FOR 1=88 TO 96 
CALL CHAR(T,AS):: 


READ A 

.; NEXT 

I 

310 CALL HCHAR(1,1,30,768) 

320 FOR I=& TO 21 STEP 3 :: 

CALL HCHAR(1,1,49+A):: A=At1 
ss NEXT I 

330 FOR I=1 TO 27 STEP 3 

CALL VCHAR (1,1,96,29):: 
I 

340 FOR I=1 TO 14 


NEXT 


READ A, 


48 


IF RND<S.S THEN CALL SPL 
(A,B)ELSE CALL SPR(A,B) 


350 NEXT I 
360 RESTORE 250 :: FOR A=1 T 
O 14 :: READ 1,J 


370 DISPLAY AT(I-1,J+1)SIZE( 
2) :CHR$ (30) &CHR$ (30): NEXT 


A 

380 I=2 :;: J=7 

390 PL=PL+.5 :: DISPLAY AT(2 
2,24) 2") I) "&RSTRESCINTCINTIPLI/ 
PL) +1)&"<<" 

400 DISPLAY AT(1,24)2"SP.:1” 
DISPLAY AT(11,24):"SP.:2 


410 B=4 :: 
‚Kt,,)d,c0) 

420 DISPLAY AT(24,1):" x=1 
h=2 p=3 " :: ACCEPT AT(2 
4,20)SIZE(1)VALIDATE("123")B 
EEP: DISPLAY AT(24,1):"W 
ELCHE SPALTE ?" 

430 ACCEPT AT(24,20)SIZE(1)V 
ALIDATE ("123456") BEEP:SP 

440 J=SPX3+ I=2 

450 FOR A=1 TO 30 
A,1)=0 THEN 470 

460 NEXT A 

470 IF A)AM(FITHEN AM(F)=A 

480 K(F,A,1)=I :: K(F,A,2)=J 

CALL HCHAR(KIF,A,1),KiF, 
A,2),C(F)) 

490 CALL ROLL(K(,,),C0),F,A, 
PL IF @=0 THEN 500 ELSE 4 
90 

500 CALL SOUND(10,1000,10):: 
FOR T=1 TO 3 FOR B=1 TO 
3 

510 FOR A=1 TO AM(B IF Kt 
B,A,2)>0 THEN CALL ROLL(K(,, 
),C(),B,A,PL) 

520 NEXT A 

530 NEXT B 

540 NEXT T 

GOTO 390 

SUB SPL(1,J) 

CALL SOUND (100, -6,20) 

DISPLAY AT(I,J)SIZE(3):" 
XZ"&CHRS(30):: DISPLAY AT(I+ 
1,DSIZE(BI:"YI\" DISPLAY 
AT(1+2, JISIZE(3) :CHR$ (30) &" 
Yr® 

590 SUBEND 

600 SUB SPR(1,J) 

610 CALL SOUND(100,-5,20) 

620 DISPLAY AT(I,I)SIZE(3):C 
HRS (30) &"XZ" DISPLAY AT(I 
+1, I) SIZE(4) "I*_"&CHRS (30): 
ı DISPLAY AT(1+2,J)SIZE(4):" 
A_"&CHRS (30) KCHRS (30) 


CALL PUNKT(B,A,PL 


IF K(F, 





630 1=I1+2 

640 SUBEND 

650 SUB ROLLIK(,,),C(),B,A,P 

L) 

660 I=K(B,A,1):: 
! G0OTO 680 

670 KiB,A,1)=1 K(B,A,2)=J 

680 CALL GCHAR(1+1,J,6):: CA 

LL GCHAR (I+1,J+1,61) 

690 IF G<>120 AND G<>104 AND 
G<>112 THEN 720 ELSE IF IX) 

2 AND 1<>7 AND I<>12 AND I<> 
17 THEN 780 

700 CALL GCHAR(1+1,J+2,6):: 

CALL GCHAR(I+1,J-1,61):: IF 

G1<>30 AND G<>30 THEN 780 EL 

SE CALL HCHAR(1,J,30):: I=I1+ 

:: IF G1=96 THEN J=J+3 ELS 

E IF G=96& THEN J=J-3 

710 CALL HCHAR(1,J,C(B)):: 

ALL SOUND (20, -2,0):: 

0 

720 IF G+G1<>60 THEN 750 

730 CALL HCHAR(1,J,30):: I=1 
+1 :: IF 1322 THEN CALL VCHA 

R(23;,K(B,A,2),30,1):: K(B,A, 
1),KtB,A,2)=0 :: CALL PUNKT ( 

B,A,PL,K(,,),C0))ı: GOTO 780 
ELSE CALL HCHAR(1,J,C(B)) 

740 G0TO 680 

750 IF 6>30 AND 6<91 OR 613 

O AND Gi<91 THEN 770 

760 IF G61>30 THEN CALL SPL(I 
„It G0TO 730 ELSE IF 63 

OÖ THEN CALL SPR(I1,J-4):: GOT 

0 730 

770 KiB,A,i)=1 
ı: @=0 

780 SUBEND 

790 SUB PUNKT(B,A,PL,K(,,),C 
0 

800 DIM F1(4,4,2),FE(4,4,2) 

810 IF BRETT=O THEN CALL BR( 

FE(,,),FIt,,),CU))s: BRETT=8 

820 K(B,A,2),K(B,A,1)=0 

830 IF PL=INT(PL)ITHEN 890 

840 SUM, Z=0 

850 FOR I=1 TO 4 :: FOR J=1 

TO 4 :: SUM=SUM+FE(1,J,2):: 
IF FE(1,J,1)=B AND FE(1,J,2) 

=1 AND Z=0 THEN CALL HCHAR (I 
+2,J+26,30):: FE(1,J,2)=7 
Z=2 :: SUM=SUM+6 

860 NEXT J :: NEXT I 

870 IF SUM>=16%7 THEN CALL E 

NDE (1) 

880 SUBEXIT 

890 SUM,Z=0 

900 FOR I=1 TO 4 :: FOR J=i 

TO 4 :: SUM=SUM+FI(I1,J,2):: 
IF FI(1,J,1)=B AND FI(1,J,2) 


J=K(B,A,2): 


c 
GOTO 67 


K(B,A,2)=J 


=1 AND Z=0 THEN CALL HCHAR(I 
+12,J+26,30):: FI(1,J,2)=7 : 


ı Z=2 :: SUM=SUM+6& 

910 NEXT J :: NEXT I 

920 IF SUM=16%7 THEN CALL EN 
DE (2) 

930 SUBEND 

940 SUB BR(FE(,,),FI(,,),C0 
) 

950 FOR I=1 TO 4 :: FOR J=1 


To 4 

960 IF RND<.4 THEN FI(1,J,1) 

=1 ELSE IF RND<.65 THEN FI(I 
‚J,i)=2 ELSE FI(1,J,1)=3 

970 CALL HCHAR(1+12,J+26,C(F 

1(1,J,19)) 

980 IF RND<.4 THEN FE(1,J,1) 

=1 ELSE IF RND<.65 THEN FE(I 
‚J,i)=2 ELSE FE(1,J,1)=3 

990 CALL HCHAR(1+2,J+26,C (FE 
{1;3,1993 

1000 FE(1,J,2),F1(1,J,2)=1 

1010 NEXT J NEXT I 

1020 SUBEND 

1030 SUB ENDE (I) 

1040 DISPLAY AT(10,1)BEEP ER 

ASE ALL: "SPIELER"jI5"HAT GEW 

ONNEN" 

1050 DISPLAY AT(14,1):"1..NO 

CHNÄL ur sea ana area 
ar ee ee el wer een Zara 

HLUSS" 

1060 CALL KEY(0,K,S):: IF K= 

49 THEN RUN ELSE IF K=50 THE 

N STOP ELSE CALL SOUND (4201, 

262,16, 370,17,311,17):: GOTO 
1060 

1070 SUBEND 


BÖRSE 


Downloaded from ww.ti99iuc.it 

Verkaufe Module wie Topper/Princess/Driving/ 
einmalig in der BRD + ExBasicspiele ab 5 DM / 
Module ab 20 DM. Liste gegen DM 1 bei Wolf- 
gan Auer, Kantstr. 18, 645 Hanau 

Verk. TI-99/4A + ExBasic und Lerncass. + Cass. 
Rec. + Rec. Kabel + Soccer + Progr. + 2 Bücher + 
Infos + Joyst. VB eventuell auch einzeln. Tele 
07135/5744 und Atari 2600 mit 3 Modulen und 
Joyst. Arpad Huber Jr., 7129 Haberschlacht 
Verk. P-Box mit V 24 und Cent., Dakw De 
Controller, 64K-Bausatz, kaum gebraucht, mit 
Software. VB 1700. Tel. 05323/1811 n. 18 Uhr. 
TI99/4A + EXT-Basic + Schach + Kass-Rec-Kabel 
+ Alien-Add + Minus-Mis + Software + Lit; VB 
520,—. Tel. 0201/30 67 48 ab 17.30 Uhr 


Verkaufe TI-99/4A + Ext.-Basic + 150 Pgm. so- 
wie Module. Info: H. Hollmann, Tel. 0209/84144 


LO 1 KREKRERKKHERRTRIR RENT RR 
11 %* * 
12° % STEUERBERECHNUNG x 
131% * 
141 * Copyright 57 x 
15 ' x x 
i6 !ı % Thamas Ehlert x 
171% * 
19 ı % Benoetigte Gersete * 
20 ! %* T1I99/4A Konsole X 
zı ı * Ext. Basic x 
22 x opt.: Drucker F 
23 * x 
26 ! * Üreicherbelezung * 
27 U RR 370? Bytes x 
ze ! x x 
DI 1 KREERRHHHR NINE RICK EN 
30 ! 

280 ZALL CLEAR 

290 CALL SCREEN (12) 

300 DT3PLAY AT(1,Z2I:"STEUERB 
ERECHHUNG" 

310 DISPLAY AT(2,8):"------- 
320 DISPLAY AT(3,5):"@ T.Ehl 
ert 2725 " 


330 TISPLAY AT(S,1):"DAS 
ERAMM BERECHNET IAH-" 

340 DISPLAY ATS, 1): "RES3STEU 
ER,KIRCHENSTEUER UND" 

350 DISPLAY ATi?,1):"MONATLI 
SHES NETTOEINKOMMEN" 

2360 DISPLAY AT(83,1): "UNTER B 
ERUECKSICHTIGUNG EI-" 

370 DISPLAY AT(?,1):"NER ETW 
AIGEN STEUERTTSPARNIS" 

380 DISPLAY AT(10,1):"NACH P 
ARAGSRAFH 7b EStö, 30-" 

390 DISPLAY ATtIL,L):"WIE SA 
ENTLICHE S0ZIALVERSI-" 

400 DISPLAY AT(12,1):"CHERUN 
GSBEITRAEGE \'ON SQZI- 

410 DISPLAY AT(13,1):"ALVERS 
ICHERUNGSPFLICHTIGEN" 

420 DISPLAY AT(14,1): 
NEHMERN" 

430 DISPLAY AT(20,?}: "EINE T 
ASTE DRUECKEN!" 

440 CALL KEYIO,K,S3:: 1 
THEN 440 

450 CALL CLEAR 

460 DISPLAY ATIL,1):"" 

470 DISPLAY AT(2,1):"ERKLAER 
UNS DER EINGABEWERTE: " 

480 DISPLAY ATIS, 

490 DISPLAY AT(5,1):""BRUTTO 
JAHRE3EINKOMMEN BEIN-HALTET 
SAEHTLICHE STELER-...PFLICHT 
ISEN EINKUENFTE, ALSO AUCH U 
RLAUBS- UND WEIHNACHTSGELD" 


PRO 


"ARBEIT 


2=0 
-— 


50 


500 DISPLAY AT(9,1):"SOWIE 3 
TEUERPFLICHTIGE SPAR ZULAGEN 
ETE, senarane she DERBDEN 
SSKASTEN SIND IN TAT-SAECHLI 
HER HNEHE, NILFSVEL- 
510 DISPLAY AT(13,1) "SE ALS 
PAUSCHAIL.BETRAG EINZU-SEBEN, 
520 DISPLAY AT(15,1):""SCNDE 
RAUSGSABEN SIND IN TAT-SAECHL 
ICHER HOEHE, HILF@SWEI-". 
530 DISPLAY AT(17,1):" 


.. 


SE ALS 


„PAUSE HALBETRAG EINZU- GEBEN. 
540 DISPLAY ATı(19,1)2"THAUS- 
BAUFOSTEN BEINHNS LTEN MUR DI 


E HERSTELLUNGS- HICHT ABER D 
IE GRUNDSTUÜECKSKOSTEN" 

550 DIEPLAY AT(Z2,7)S "EINE T 
ASTE DRUECKEN!" 


530 CALL KEY(G,#7,5):: IF S=O 
THEN 5% 

570 CALL CLEAR 

580 DISPLAY AT{2,1): "IM FOLG 


ENDEN ERHALTEN SIE.,.DIE ZUR 
HILFZWTISEN EI'YTABE ERFOSRDE 
RLICHEN” 
570 DISPLAY 
L.BETRAEGE" 
500 DISPLAY AT(7 


RTt5,6)5"FAUSCHA 
als namen 
8610 DISPLAY AT!?,1):"FUER UWE 
RBUNGSKOSTEN UND SCH-DERAUSS 
ABEN;" 

620 DISPLAY AT(12 
ZUNGSERKLAERUNG: " 


630 DISPLAY AT(13,1?3:"LED=LE 
DIG UH=VERHETSATET,. . . .SUP=20 
ZTALVERS,PFLICHTIG.. ‚:EüOP=D9 
FFELVERDIENER" 
640 DISPLAY AT{1?7,1):"SIND 5 
IE (1) LED + SUP. ooenonnnuns 
„„si2) LED # NICHT 3VP, 4044 
+ 
+ 


„1): "AEBKUER 


et) SUP use na 
...:4% VH NICHT 
...15) DER SyvPp" 
6850 DIEPLAY AT(22, 1): "20. 
e..15) DOP + HICHT 5VF. 
N DA 
KENNTAHL EINGEBEN!" 

660 ATCCEFT AT(24,22)BEEP VAL 
ILATEL’LD245S")5IZE(1):Q 


SUP, za.eu0600o 


. 2 tr. 0° 


570 Ir Q=1 THEN 730 
680 IF G=2 TNEN 750 
690 IF 3=3 THEN FFC 
?00 TF ü=3 THEN 770 
10 IF 9=5 THEN 816 
720 IF 2=5 THEN 330 
730 SALL CLEAR :: DISFLAY A 


!S, 1) "WEREUNGSKOSTENPANSZSEA 





LE Sea" 

740 DISPLAY ATIE,1):"SONDERA 
LESAPENFAUSCHALE 3780" 1: GO 
ra 850 


750 CALL CLEAR :: 
IS, ETWERBUNGEROS 
ı E = z an 
360 DISPLAY AT(E,1):"30NDERA 
LEGABENPAUSCHALE 2268" GG 
TO sc 
770 CALL CLEA 
2,00: 
LE 564" 
?80 DISFLAY AT(8,1):"SONDERA 
USGABENPAUSCHALE. .... OHNE K 
INDER....7560. 22220. ,EIN K 
IND. 2... Bd ‚ZWEI K 
INDER....8856. ... .DREI K 
INDER....9120° ı: 60T0 880 
790 Zkli. CLEAR :: DISPLAY AT 
(5,1): "WERBUNGSKOSTENPAUSCHA 
LE Seat 
800 LISFLAY ATI&,1D: 
USSABENFALISCHALE. . 


nl 


DISPLAY 9A 
EVERPÜNGSREETENFAUGEHR 


"SONDERA 
«OHNE K 
..EIN K 
.:ZWEI K 


INDER on denen 


Tide: 0900, 2000 


INDER,..,.6518, een DdREL K 
INIER.... 7238" 13 GGTO 850 
810 TALL CLESR :: FE=Z :: DI 


SFLANY ATIS,1): "WERBUNGSKOESTE 
NFALICHAÄLE I178" 
820 DISPLAY AT(5,1) 


;SCHDERA 
VESABENFAUSCHALE......CHHE HK 
INDER....,7560,. ven: EM. 5 
IND... 22,.8924,.22 220. cWEI K 
INDER., ...9292.2.2.2...DREI K 
INDER...10285C" :3-GCTC E50 
830 TZALL CLEAR :: FE=2 5: 
SFLAY ATIE, A) TV "WERRUNGENOS 
HFAUZCHALE A428" 
840 DIEFLAY ATie,1): 
USGABENFÄUSCHALES .. 
INDER. .,.3938. vv 2 00 
IND... 2.2...19400. 22004 
INDER. 2.2.6315, 020: 
INDER,...7Z2&" :: GOTI 350 
850 DISPLAY AT(12,1): "EITTE 
MERKEN SIE SICH DIE...FUER 5 
IE RELEVANTEH EETRAEGEUND ST 
ARTEN EIE DAS FROGFAMMMIT EI 
NErI DEZENTEN DRUCK AUFIRGEND 
EINE TASTE!" 
860 CALL KEY(G,K,S):: 
THEN 850 
870 CTALL CLEAR 
880 Fr=i 
E70 DIEFLAN AT(IS,S)S "BITTE 5 
EFEN ZIE DIE" 
BCO5 DISPLAY AT(T,£S): "ARBEIT 
EHHERANTEILE" 
910 DIERLAN AT{?,E) 


"SONDERA 
..ÖÜHNE K 
».EIN K 
s..ZWEI K 
.:..DREI K 


S=0 


IF 


"IN % FU 


51 


ER FOLGENDE" 


920 DISFLAY AT(II,S)E"VERSIC 
HERUNGEN EIN: " 


930 DISFLAY ATt17?,1)2 "KRANKE 
HVERSTCHERUNG?" 

940 ACCEFT AT(1?,22I)BEEF VAL 
DATE :<NUMERIC)ISIZE (SI SKV 

950 DISPLAY AT(19,1): "RENTEN 
VERSICHERUNG 7?" 

980 ACCEFT AT(19,ZZYBEEP VAL 
IDATE(NUMERICISIZE SI ERV 

970 DISFLAY ATi21,1Y: "ARBEIT 
SLOSENVERS., 2?" 

980 ACCEPT AT(21,22)BEEP VAL 
IDATE (NUMERICISIZE IS) ALU 
990 CALL CLEAR 

1000 DISFLAY AT{2,i): "BRUTTO 
JAHRESEINK.? " 

10106 ACCEPT ATiZ2,ZI)BEEF VAL 
IDATE (NLIMERICYISIZEIF)GET 
1020 DIEPLAY AT(3,1): "WEREUN 
BSKOETEN...? * 

1030 ACCEFT AT(3,21)BEEF VAL 
IDATE (NUMERIC)ISIZE (A) :WER 
1040 DISPLAY AT(4,3)5 "SOHDER 
AUSGAZEN, ..7 " 

1050 ACSEFT AT!A,21:BEEF 
IDATEINUMERICIEIZEI) EA 
1080 an ATIS,2): "HAUS-E 


VAL 


ANKISTEN,..7? ” 
1070 ACCEFT ATIS,ZI}BEEP VAL 
IDSTEILIMERTC)I SITZE) GHENH 


1080 DISFLAY AT(&,I): "ZAHL I 
ER KINDER 7? * 

1090 ACCEFT ATIi6,2:2)EEEF VAL 
IDATE {NUHERICYSIZE(ZI:KZ 
1100 DISFLAY ATiT,A)I"SELITT 
INSiJ=2/’N=el) 

1110 ACCEPT AT(?,21)EEER VAL 
IDATE IHUNERICISIZELLY:ISF 
1120 IF HEK>250000 THEN HEK= 
250000 

1130 ZTSF= (HBK/ACOHKS 

1140 JG=BT-SA-WK- (HOBOXFE) - 
KZX422) -3T2F 

1150 A=16 

1160 CN SF GOTG 1170,1190 
1170 Y=IHT(IG/S4)%54 

1180 G0TO 1200 

1190 Y=tINT(JG/108)%X108) /5F 
1200 IF v£4213 THEN 1250 
1210 IF V<18000 THEN 1280 
1220 IF v<&000% THEN 1280 
1230 IF VX130000 THEN 1210 
1240 IF 1129997 THEN 1340 
1250 DISFLAY AT(15,®): "KEINE 
BERECHNUNG" :: GOTG 1890 
1260 Ps ,22XU 220 
1270 e270 


Sec H=i)- 18000 710000 





1290 F=(((3.05%H-73.76) XH+69 
5) #H+2200) XH+3034 

1300 GOTO 1350 

1310 M=(V-60000) 710000 

1320 F=(t1.09%M-5.45) XM+88.1 
3) XM+5040) #M+20018 

1330 6010 1350 

1340 F=.56%V-14337 

1350 IF SP=2 THEN F=F#2 

1360 DISPLAY AT(9,1):"ZU VER 
ST. EINK.:" DISPLAY AT(9, 
20): INT(JG) 

1370 DISPLAY ATt11,1):"EINKO 
MMENSTEUER: " :: DISPLAY AT(1 
1,20) :INT(P) 
1380 IF KZ=1 
OTO 1440 
1390 IF KZ=2 
GOTO 1440 
1400 IF KZ=3 
GOTO 1440 
1410 IF KZ=4 
GOTO 1440 
1420 IF KZ=5 
GOTO 1440 
1430 IF KZ=& 
1440 Y=F-Z 
1450 x=.09%Y :: 
x=0 

1460 DISPLAY 
ENSTEUER 
3,20): INT (X) 

1470 AKU=t(BJ/100)KV) 713 
1480 ARV=({BJ/LOO)KRV)/13 
1490 AALV=((BJ/LO0)XALV)/13 
1500 SVGES=AKV+ARV+AALU 

1510 DISPLAY AT(20,1):"SIND 
SIE SOZIALVERSICHERUNGSPFLIC 
KITBiss a nen anna aaraen een 
MERSERBNDSESPIRENREEN. <: ©; 15, 

1520 ACCEPT AT(22,28)BEEP VA 
LIDATE("IN")SIZE(L):AS 


THEN Z=600 :: 6 


THEN Z=1560 


THEN 2=3380 ::; 
THEN 2=5160 :: 
THEN 2=69&0 ::; 
THEN 
IF x:$0 THEN 


(13,1): "KIRCH 


AT 
ss: DISPLAY AT(1 


1530 IF A&="J" THEN 1550 
1540 IF A&="N" THEN 1780 
1550 DISPLAY AT(20,1):"" 


1580 DISPLAY AT(21,1):"" 
1570 DISPLAY AT(15,1): "KRANK 
ENVERS. BEITRAG: " 

1580 DISPLAY AT(15,20):1INT(A 
KV) 

1590 DISPLAY AT(1?,1): "RENTE 
NVERS.BEITRAG ; " 

16800 DISPLAY AT(17,20):1INT(A 
RV) 

1810 DISPLAY AT(19,1):"ARBEI 
TSLOSENVERS. ;" 

1620 DISPLAY AT(19,20):1INTtA 
ALV) 

16830 NG=BJI-F-X- (SVGESA13) 
1640 MG=NG/13 

1650 DISPLAY AT(21,1):2"MONAT 


52 


LICH NETTO: " 
1660 DISPLAY 
G) 


1670 


AT(21,20):1NT(M 


DISPLAY AT(22,1):"----- 
15850 DISPLAY AT(24,1): "WERTE 
AUSDRUCKEN... . (J/N)" 
1690 DISPLAY AT(15,29:"3" 
ı DISFLAY AT(18,25):'03" 
ISPLAY AT(17,25):"}MTL" 
1700 DISPLAY AT(13,25):"}" 5 
° DISPLAY AT(19,25):"7" 
1710 ACCEFPT AT(24,28)BEEP VA 
LIDATEi{"SN"ISIZELL):AS 
1720 IF As="]" THEN 1730 
1730 IF A$="N" THEN 1730 
1740 DISPLAY AT(23,1): "NEUE 
BERECHNUNG... . (J/NI" 
1750 ACCEFT AT(23,28)BEEF VA 
LIDATE("IN")SIZELL)I:GAS 
1760 IF A$s="J" THEN CALL 
AR :; 50TO 570 
1770 IF A$s="N" 
AR 5TOP 
DISFLAY AT(20,1):"" 
DISPLAY ATt21,1):2"” 
NG=BJ-F-X 
MG=NG713 
DISPLAY 
NETTO:" 
DISPLAY 


& »- 


CLE 


THEN CALL CLE 


AT(21,1): "MONAT 


AT(21,20):5INT(M 


. u. 


DISPLAY AT(22,1):" 
1850 DISFLAY AT(24,1): "WERTE 
AUSDRUCKEN (J/N)" 

18580 ACCEPT AT(24,25&)BEEF VA 

LIDATE("IJIN")SIZEI1):AS 

1870 IF A$="!7" THEN 1930 
1880 IF At="N" THEN 1870 
1890 DISPLAY AT(24,1): "NEUE 
BERECHNUNG. „. {J/N)" 

1900 ACCEFT AT(24,28)BEEP VA 

LIDATE("JN")SIZE(1):GAS$ 

1910 IF As&="J" THEN CALL CLE 


AR :: GOTO 890 

1920 IF A$="N" THEN CALL CLE 
AR :: STOP 

1930 OPEN #1: "PIO" 

1940 FÜR Z=1 TO 23 

1950 FOR F=1 TO 30 

1960 CALL GCHAR(Z,P,X) 

1970 DRUS$=SEG$ (DRU$, 1, P)&CHR 
ix) 

1980 NEXT P 

1990 FRINT H1:DRU$ 

2000 NEXT Z 

2010 CLOSE #1 

2020 GOTO 1740 





10 
ii 
12 
13 
14 


REMIRKKRRHRRTRNTTTTTTN N 
REM+ 
REMX KOMPOSITIONEN 
REM Copyright by 
REM% 


ku „Ze „Ze 22 22/22 oo 


15 REM A.Saberschinsky 

16 REM+ 

17 REM#Benoetigte Geraete* 
18 REM# T199/4A Konsole * 
19 REM Kass.-Rekorder + 
20 REM * 
23 REM Speicherbelegung # 
24 REM+ 9172 Bytes % 
25 REMSHERHRRRHRHRHHHHHHN 
26 REM 


100 DIM Fi1(125),F2(125),F3(1 

25),L(123) 

4110 CALL CLEAR 

120 PRINT "#NOTENKOMPOSITION 

SPROGRAMM#": : 2: 2 2 3133 
s s"ENTWICKELT UND GESCHRIE 

BEN VON” 

130 PRINT ".....ALEXANDER SA 

BERSCHINSKY198S": : : : 

140 CALL SOUND(100,110,0,100 

0,0,10000,0) 

150 FOR Z=1 TO 23500 

160 NEXT Z 

170 FLAG1i=0 

180 FLAG11=0 

190 FLAG3=0 

200 CALL CLEAR 

210 PRINT "....00...WAHLLIST 

E.sor00.0.,  SSZSSBSSESERNEBNNNE 

zunanczummm " 

220 PRINT . een wei eriete 

sonen e00nc. BEDIENUNGSANLEITU 

NG.e 200.0... A4NOTENEINGABE. .... 

raten 

230 PRINT "NOTENKORREKTUR. .. 

saeeeen0..SABSPIELEN DER KOM 

POSITION. .4LADEN EINER KOMPO 

SITION....3" 

240 PRINT "SPEICHERN EINER K 

OMPOSITON. 6ENDE. vv seen on 000 


nenseeeneet ee H H H H s 


250 CALL KEY(0,K,S) 

260 IF S=0 THEN 250 

270 IF K<49 THEN 250 

280 IF K>55 THEN 250 

290 ON K-48 GOTO 300,690, 115 
0,1540, 1610, 1690, 1770 

300 CALL CLEAR 

310 PRINT "MIT DIESEM PROGRA 
MM KOENNEN SIE BELIEBIGE MEL 
ODIEN EIN- GEBEN, DIE NACH E 
INER EVEN-" 

320 PRINT "TUELLEN KORREKTUR 
ANGEHOERT ODER GESPEICHERT 
WERDEN. .... KOENNEN. AUCH DAS 

LADEN " 
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330 PRINT "ALTER MELODIEN VO 
N CASSETTE I85T MOEGLICH." 

340 PRINT "DEN TONWERT GEBEN 
SIE EIN,..INDEM SIE FUER DI 
E ENT-.....SPRECHENDE NOTE D 
IE TASTE.." 

350 PRINT "AUF DER ALPHANUMM 
ERISCHEN. . . TASTATUR DRUECKEN 
. FUER.....DIE MITTLERE TONL 
EITER IST" 

360 PRINT "NUR DIE ENTSPRECH 
ENDE TASTE ZU DRUECKEN, FUER 
DIE TIEFE TONLEITER ZUSAETZ 
LICH DIE 

370 PRINT "TASTE ’FCTN’ UND 
FUER DIE...HOHE TONLEITER DI 
E TASTE. ...’CTRL’. (Z.B.: HO 
HES 6 --)..CTRL 6.)": : 

380 PRINT ">BITTE EINE TASTE 
DRUECKEN< " 

390 CALL KEY(O,K,S5) 

400 IF S=0 THEN 390 

410 CALL CLEAR 


420 PRINT "BITTE MERKEN SIE 
SICH. ......WEITERHIN FOLGEND 
E ZU-.sc000 SAETZLICHE TASTEN 
BELEGUNG. . . (EV. NOTIEREN): ” 
430 PRINT "..NOTE......!..:T 


ASTE.....,. SSE2SSSESESENSERERE 


Deo. ooo!onon 


sezunzmumum, CH, 
see 

440 PRINT "..D#, 
ser nenn. FR, 
sole enu Ch, 


"Al, 


Ek.ooo loc. 
Gkoooo sone 
Alkoooolonne 
Bene 


450 PRINT 


staunen 


460 PRINT "# = ERHOEHUNG EIN 

ER NOTE. ...%& = VERMINDERUNG 

EINER NOTE": : 

470 PRINT "FUER DIE TONLEITE 

RWAHL BITTEWIEDER ’FCTN’ BZW 
. ’CTRL’... VERWENDEN. ": : : 

480 PRINT ">BITTE EINE TASTE 
DRUECKEN« " 

490 CALL KEY(0,K,S) 

500 IF S=0 THEN 490 

3510 CALL CLEAR 

320 PRINT "DIE TASTEN FUER D 
IE NOTEN-. .LAENGE SIND WIE F 
OLGT BE-...LEGT:*" 

330 PRINT "NOTENLAENGE !...T 
ASTE. ...., , SZSBESESZENSBERBEEREM 
SEBSENBEREMEE, .32STEL.. :. ne 
selsssnune” 

340 PRINT "..16TEL..o2o!ouo. 

PR REP ERER RREEERRE = 0 ı| | SP RPEFE IE DEREN 

= 5 = Be | 


PL PR 





550 PRINT "...94TEL . ..lesıe 
. 3; .e..—...:..:...s «HALBE. ... ! ou... 
. 6. esse eo 8 8 . GANZE. ... ! so»... 


BORP her AS RRIEREPEFR 


560 PRINT "----------------- 
nun JEWEILS MIT ’SHIF 
T’ IIIEEEEISnann anna 
----------- BE 

570 PRINT ">BITTE EINE TASTE 
DRUECKEN«< " 


580 CALL KEY(0,K,S) 

390 IF S=0 THEN 580 

600 CALL CLEAR 

610 PRINT "FUER EINE PAUSE D 
RUECKEN DIEBITTE BEI DER NOT 
ENHOEHEN-. „WAHL EIN ’P’ UND 
DANN DIE" 

620 PRINT "GEWUENSCHTE LAENG 
E. v.s0.....BEI DER NOTENEING 
ABE KOENNENSIE ZWISCHEN EIN- 
‚ ZWEI-," 

630 PRINT "UND DREIKLANG (OD 
ER AUCH BE-ENDIGUNG DER EING 
ABEN) WAEH-LEN. " 

640 PRINT "WENN SIE WIEDERHO 
LT (2).....AUS DER WAHLLISTE 
WAEHLEN, . „WIRD DIE GESPEICH 
ERTE KOMPO-" 

650 PRINT "SITION GELOESCHT! 
Im: 5 5 2 s">BITTE EINE TAS 
TE DRUECKEN< " 

660 CALL KEY(0,K,S) 

670 IF S=0 THEN 660 

680 GOTO 170 

690 CALL CLEAR 

700 A=0 

710 AsAt+1 

720 PRINT 
>(1) EINKLANG. ssecreenn0nn.” 
>(2) ZWEIKLANG. „oe enesun00” 
>(3) DREIKLANG. „seen on0 00.” 
>(4) ENDE DER EINGABE": : 

730 CALL KEY(0,K,S) 

740 IF S=0 THEN 730 

750 IF K<49 THEN 730 

760 IF K>S2 THEN 730 

770 ON K-48 GOTO 780,850,960 
‚1110 

780 FLAG4=1 

790 GOSUB 1920 

800 CALL SOUND(L(A),Fi1(A),O) 

F2(A)=Fi(A) 

F3S(A)=Fi1(A) 

IF FLAG3=1 THEN 170 

GOTO 710 

FLAG2=1 


"NOTENEINGABE: .... 


AAAAAAAAAAAAAN ® L Zn 


GOSUB 1920 
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890 FLAGS=1 
900 PRINT "-------- 


910 GOSUB 1920 


920 CALL SOUND(L(A),FL(A),O, 
F2(A),0) 

930 F3(A)=F2(A) 

940 IF FLAG3=1 THEN 170 

950 G0T0 710 

960 FLAG2=1 

FLAG4=3 

FLAG6=1 


GOSUB 1920 
FLAG2=1 
FLAG6=2 


GOSUB 1920 

1080 CALL SOUND(L(A),FL(A),O 
‚F2(A),0,F3(A),0) 

1090 IF FLAG3=1 THEN 170 
1100 GOTO 710 

1110 IF FLAGI2=1 THEN 170 
1120 A=A-1 

1130 M=A 

1140 G0TO 170 

1150 CALL CLEAR 

1160 PRINT "KORREKTUR: «2.2... 


AAAAAAAAAAUS ® 
...... ..e..e.. . . 


1170 PRINT "WELCHE KORREKTUR 
Parasennennem?ti) LOESCHEN E 
INER NOTE. ..->(2) ERGAENZEND 
E NOTE. .....-)(3) VERAENDERN 
EINER NOTE’: : ; 

1180 CALL KEY(0,K,S) 

1190 IF S=0 THEN 1180 

1200 IF K<49 THEN 1180 

1210 IF K>51 THEN 1180 

1220 ON K-48 GOTO 1350,1230, 
1460 

1230 M=M+1 

1240 INPUT "BITTE GEBEN SIE 
DIE NOTE AN,DIE NACH DER EIN 

ZUFUEGENDEN NOTE STEHEN WIRD 
1250 
1260 
1270 
1280 
1290 

1300 

1310 

1320 

1330 


FOR Y=M TO N+1 STEP -i 
Q=Y-1 

FitY)=Fi(@) 
F2(Y)=F2(0) 
F3(Y)=F3(0) 

L(Y)=L(@) 

NEXT Y 

A=N 

FLAG3=1 


1340 GOTO 1510 

1350 INPUT "BITTE GEBN SIE D 
IE NUMMER...DER NOTE AN, DIE 
GELOESCHT. . WERDEN SOLL. 
1360 FOR A=N TO M 

1370 I=At+1 

1380 FitA)=Fi(TI) 

1390 F2(A)=F2(I) 

1400 F3(A)=F3(I) 

1410 L(A)=L(T) 

1420 NEXT A 

1430 M=M-i 

1440 GOTO 170 

1450 GOTO 1510 

1460 INPUT "BITTE GEBEN SIE 

NUMMER DER. .NOTE EIN, DIE SI 

E KORRI-....GIEREN WOLLEN. " 
:A 

1470 PRINT 

1480 IF A<i THEN 1460 

1490 IF A>M THEN 1460 

1500 IF INT(A)<>A THEN 1460 

1510 PRINT :" 
een Ve 

1520 FLAG3=1 

1530 GOTO 720 

1540 CALL CLEAR 

1550 PRINT "ABSPIELEN: ...... 


AAAAAAAAAANG . . 
seo ueaua. 9.0 D 


1560 FOR A=1 TO M 

1570 CALL SOUND(L(A),FitA),O 
‚FZ(A),O,F3(A),0) 

1580 PRINT "NOTENNUMMER: 
1590 NEXT A 

1600 G0TO 170 

1610 CALL CLEAR 

1620 OPEN #1:"CS1",SE@UENTIA 
L, INTERNAL, INPUT ‚FIXED 

1630 INPUT #1:M 

1640 FOR A=1 TO M 

1650 INPUT #1:L(A),Fi(A),F2L 
A),F3(A) 

1660 NEXT A 

1670 CLOSE #1 

1680 GOTO 170 

1690 CALL CLEAR 

1700 OPEN #1:"CS1",SEQUENTIA 
L, INTERNAL , OUTPUT, FIXED 

1710 PRINT #1:M 

1720 FOR A=1 TO M 

1730 PRINT #1:L(A),FitA),F2t 
Ä),F3(A) 

1740 NEXT A 

1750 CLOSE #1 

1760 G0TO 170 

1770 CALL CLEAR 

1780 PRINT "BITTE BEACHTEN $ 
IE, DASS BEIABSCHLUSS DES PR 
OGRAMMS ALLEDATEN GELOESCHT 

WERDEN! *: : ; 


"A 
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1790 PRINT "BITTE WAEHLEN SI 
E:isessesera. mr) ZURUECK Z 
UR WAHLLISTE-->(2) ENDE DES 
PROGRAMMS": : : : : 

1800 CALL KEY(O0,K,S) 


1810 IF S=0 THEN 1800 

1820 IF K<49 THEN 1800 
1830 IF K>S50 THEN 1800 
1840 IF K=49 THEN 170 

1850 CALL CLEAR 


1860 PRINT "IN DIESEM FALL D 
ARF ICH MICHBEI IHNEN FUER I 
HR INTERESSEBEDANKEN UND MIC 
H VERAB-....SCHIEDEN. " 
1870 PRINT " ALEXANDER SABE 
RSCHINKY ’85": 23:55 
1880 CALL KEY(0,K,S) 
1890 IF S=0 THEN 1880 
1900 CALL CLEAR 
1910 END 
1920 PRINT "NOTENNR.: 
"KLANG (FREQUENZ) ? " 
1930 CALL KEY(0,K,S) 
1940 S=0 THEN 1930 
1950 K=131 THEN 2340 
1960 K=132 THEN 2370 
1970 K=133 THEN 2400 
1980 K=134 THEN 2430 
1990 K=135 THEN 2460 
2000 K=129 THEN 2490 
2010 K=136 THEN 2520 
2020 K=67 THEN 2550 
2030 K=68 THEN 
2040 K=69 THEN 
2050 K=70 THEN 
2060 K=71 THEN 
2070 K=65 THEN 
2080 K=72 THEN 2730 
2090 K=96 THEN 2760 
2100 K=9 THEN 2790 
2110 K=11 THEN 2820 
2120 K=123 THEN 2850 
2130 K=125 THEN 2880 
2140 K=124 THEN 2910 
2150 K=191 THEN 2940 
K=159 THEN 2970 
K=181 THEN 3000 
K=182 THEN 3030 
K=183 THEN 3060 
K=158 THEN 3090 
K=57 THEN 3120 
K=53 THEN 3150 
K=54 THEN 3180 
K=55 THEN 
K=56 THEN 
K=15 THEN 
K=14 THEN 
K=12 THEN 3330 
K=1 THEN 3360 
K=6& THEN 3390 


"sAy""s 





IF K=80 THEN 3420 
IF K=83 THEN 32767 


GOTO 1920 
FRE=523 
C$="HOHES C" 
GOTO 3440 
FRE=587 
C$="HOHES D" 
GOTO 3440 
FRE=659 
C$="HOHES E" 
GOTO 3440 
FRE=698 
C$="HOHES F" 
GOTO 3440 
FRE=784 
C$="HOHES 6" 
GOTO 3440 
FRE=880 
C$="HOHES A" 
GOTO 3440 
FRE=988 
C$="HOHES H" 
GOTO 3440 
FRE=262 
C$="MITTLERES 
GOTO 3440 
FRE=294 
C$="MITTLERES 
GOTO 3440 
FRE=330 
C$="MITTLERES 
GOTO 3440 
FRE=349 
C$="MITTLERES 
GOTO 3440 
FRE=392 
C$="MITTLERES 
GOTO 3440 
FRE=440 
C$="MITTLERES 
GOTO 3440 
FRE=494 
C$="MITTLERES 
GOTO 3440 
FRE=131 
C$="TIEFES C" 
GOTO 3440 
FRE=147 
C$="TIEFES D" 
G0TO 3440 
FRE=165 
C$="TIEFES E" 
GOTO 3440 
FRE=175 
C$="TIEFES F" 
GOTO 3440 
FRE=196 
C$="TIEFES 6" 
GOTO 3440 
FRE=220 


G* 


D* 


A" 


H" 
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C$="TIEFES A" 
GOTO 3440 
FRE=247 


C$="TIEFES H" 
GOTO 3440 
FRE=932 


C$="HOHES 
GOTO 3440 
FRE=554 
C$="HOHES 
GOTO 3440 
FRE=622 
C$="HOHES 
GOTO 3440 
FRE=?740 
C$="HOHES 
GOTO 3440 
FRE=831 
C$="HOHES 
GOTO 3440 
FRE=466 
C$="MITTLERES 
GOTO 3440 
FRE=277? 
C$="MITTLERES 
GOTO 3440 
FRE=311 
C$="MITTLERES 
GOTO 3440 
FRE=370 
C$="MITTLERES 
GOTO 3440 
FRE=415 
C$="MITTLERES 
GOTO 3440 
FRE=233 


C$="TIEFES AH, 


GOTO 3440 
FRE=139 


C$="TIEFES CH, 


GOTO 3440 
FRE=156 


C$="TIEFES D#, 


GOTO 3440 
FRE=185 


C$="TIEFES F#, 


GOTO 3440 
FRE=208 


C$="TIEFES 6G#, 


GOTO 3440 
FRE=40000 
C$="PAUSE" 


AH, B&" 


CH, D&" 


D#,E&" 


FR,G&" 


GH, A&" 


At, B&" 


CH, D&" 


DH, ER" 


FR,GK" 


GH, AK" 


B&" 


D&" 


E&" 


G&" 


AR n 


PRINT TAB(7)5C$;"": 


ON FLAG4 GOTO 


FitA)=FRE 
GOTO 3600 


3460, 3480 


IF FLAG5=1 THEN 3510 


Fi(A)=FRE 
GOTO 3600 


3510 F2(A)=FRE 

3520 FLAGS5=0 

33530 GOTO 3600 

3540 ON FLAG& GOTO 3550, 3570 


‚3590 en ” Er un Gme !! Info 50 Pfg. 
3550 FL(A)=FRE ern atthias Orf, Birkenallee 34, D-3507 
3560 G0TO 3600 a eis u net 
TI99/4A + Ext. Basic + orig. Cas.Rec. Kabel + 
3570 F2(A)=FRE TI-Bücher + nee für 500,— DM zu 
3580 G0TO 3600 GEN... _ 
3590 F3(A)=FRE Werden Sie Mitglied im großen TI-CLUB BAUNA- 
—.——_ nn Iemkurs uvm. Info 5O.PEE oder Ahle dr 
" enkurs u.v.m. Info .o Fa 
3610 PRINT "KLANGLAENGE? " DM anfordern! TI-CLUB BAUNATAL (TCB), 
3620 CALL KEY(O,K,S) Matthias Orf, Birkenaalee 34, D-3507 Baunatal, 
3630 IF S=0 THEN 3620 Te. 
Sys = on ee ae Verkaufe originalverpackt: TI99/4A (19 Monate): 
= 235,— DM TI99/4A + Rec-Kabel: 250,— DM Mo- 
3660 IF K=35 THEN 3780 dul: Parsec: 45,— DM, Modul: Munch-Man: 3 
TI-R 1-7 (la Zust.): 25,— TI-R 1-7 
3670 IF K=36 THEN 3810 eures nn Tel. u 
3680 IF K=37 THEN 3840 eo -_ Te 
3690 IF K=94 THEN 3870 199 /4A zu verkaufen!! wenig gelaufen 
235,— DM (+ Rec-Kabel: 250,—). Spiele-Modul: 
3700 IF K=38 THEN 3900 Parsec De DM Anruf ab 17 en 
3710 GOTO 3620 Josef Wollgarten, Tel. 02473/8628 
Ba La — nn EEE U 
TI99/4A + XB + Recorder + Kabel + Datenv. + 
3730 C$="32-TEL" Schach + Spielmonule+ Toyst,% Literatur + Soft- 
3740 GOTO 3920 ware DM 550,— 08461/1404 
3750 L(A)=125 RE 
_— TI99 [4A + ExBas + Peribox + RS232 + 32K + 
3760 C$="16-TEL" Disk + Edi/Ass + TI-Writer + Div. Module + Li- 
3770 GOTO 3920 teratur 2500 DM. Apfeldorf 04122/54697 ab 
3780 L(A)=250 DL 
3790 C$=" 8-TEL" TI99/4A Verkaufe super Programme in TI-Ex- 
3800 GOTO 3920 Basic. Re an Frank Henneberger, Pf. Lege- 
3810 L(A)=500 ee a ee 
3820 C$=" 4-TEL" TI-Writer, DM 210, Pers. Record. Keeping DM 40 
3830 G0OTO 3920 Pers. Report Generator DM 40,— Statistik DM 
40,—. 64K Pl . Anl : TI-R DM 
3840 L(A)=750 25._ Tel. 0511/3563 132 n. Ih 
3850 C$=" 4-TEL PUNKTIERT" Be 
23860 GOTO 3920 er hat Lust, mit Anfänger Togramme zu tau- 
hen (TI-B)? Tel. 05971/57124). Holger H - 
3870 L{A)=1000 ae RADIO 
=" LiBEETOÄL Denn nn nn nn 
Sa co en TI99+2Te Konsole + X-Bas+Rec. Kabel + Joy + 
div. Bücher 3 div. Progr. Cass. Preis VB 600 DM 
se nn an Schwetje 040/715 70 06 
z" en a a PR 
3920 PRINT TAB(?)5C$}: : : Suche Ex-Basic, Mini-Memory, ext. 32KB. Heinz 
3930 FLAG2=0 ’ ae Ze Jörgensen, Ewensweg 2, 2987 Grossheide 1 
3940 RETURN TI-99/4A + Cass.-Rek. Kabel + Cass.-Rek. + Hand- 
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Z TELEFONSERVICE © 


Leserbriefe und Fragen sind uns stets willkommen. 


Wir beantworten sie entweder direkt oder auf 


der L.eeserbriefseite 
ACHTUNG !!! 


BÖRSE 


Drucke ihre Listings für 6,— DM pro Prg. Entferne 








buch + Software Pries: VB 250,—. Tel: 02354/ 
6974, 5882 Meinerzhagen 1 

T199/4A: Verkaufe Buchungsjournal.DM 70,— 
Bastert, Heinz Werner, 469 Herne 20, Tulpen- 
weg 61 

Suche Ext. Basic, evtl. mit Konsole, aber spott- 
billig und funktionstüchtig! Tel. 02103/44131 


Tausche: HiFi-Cassettendeck Nakamichi-,‚Dragon“ 
Reference bei AUDIO und STEREO PLAY 
Testberichte 8/83 Audio + 3/83 Stereoplay. 


Gegen: kompl. ausgestattete TI-99/4A Computer- 
Anlage. Mindest-Wert sollte nicht DM 3.500,— 
unterschreiten. Angebote an: R. Göhring, 
Alvesloher Str. 21, 2358 Kaltenkirchen, 

Tel. 04191/73 05 


Wie immer steht unseren Lesern unser Telefon- 
Service zur Verfügung! Jeden Dienstag von 15 bis 
19 Uhr. Für technische Fragen: 0731/33 220 und 

für Listings/Programme: 089/129 8013 








SERVICE 





See-Schlacht 


Wir haben das Spiel „See- 


Schlacht‘‘ genannt, ob- 
wohl es sich eigentlich 
um ein U-Boot Spiel han- 
delt! (es existieren be- 
reits mehrere Spiele mit 
dem Namen „U-Boot‘“) 
Das Spiel ist für zwei 
Personen gedacht, die 
ihre beiden Schiffe mit 
den Joysticks 1: und 2 
steuern (geübten Program- 
mierern wird es zwar 
nicht schwerfallen, das 
Spiel auf die Konsolen- 
tastatur umzuschreiben, 
was aber den Nachteil 
hat, daß zwei Spieler un- 
abhängig voneinander die 
Tastatur bedienen müs- 


sen). 
Die Aufgabe jedes 
Spielers besteht darin, 


den Gegner abzuschießen. 
Das Unterseeboot ist in 
jede Richtung steuerbar, 
genauso wie es in jede 
Richtung schießen kann. 
Geschossen wird, indem 
man auf den Feuerknopf 
drückt und innerhalb von 
ca. drei Sekunden den 
Joystick in die gewünsch- 
te Schußrichtung drückt. 
Besonders reizvoll ist es 


auch, wenn man Gänge in 
die Felswand schießt, um 
sich darin vor den Schüs- 
sen des Gegners zu schüt- 
zen. Die Schüsse haben 
nur eine gewisse Reich- 
weite und es kommt des- 
halb auf eine gute Reak- 
tion im Nahkampf an. 
Das Anzeigenfeld rechts 
oben zeigt die restlichen 
Schüsse und die Siege des 
jeweiligen Spielers an. 
Gute Reaktion wird auch 
am Anfang verlangt, da es 
zu Spielbeginn nicht be- 
kannt ist, wer welches 
Schiff zu steuern hat. 


Zum Programm: 


Um die einzelnen Steuer- 
routinen nicht doppelt 
schreiben zu müssen, ha- 
ben wir eine zweidimen- 
sıonale Variable verwen- 
det, die angibt, welcher 
Spieler am Zuge ist. Dies 
bedeutet aber nicht, daß 
ein Joystick bevorzugt 
bzw. benachteiligt ist, da 
diese Variable laufend ge- 
ändert wird. 

Das Programm wurde 
möglichst einfach gehal- 
ten, um der Schnelligkeit 
des doch relativ langsa- 


men TI Basic nichts zu 
nehmen. 

Das Programm ist zu- 
sätzlich noch mit einigen 
REMarks erklärt. Das 
Spiel kann auch mit dem 
Xbasicmodul gefahren 
werden und wird dadurch 
wesentlich schneller. 

Rühner + Rühmer 


Apfelfänger 


Haben Sie schon einmal 
in einer Fabrik als Apfel- 
fänger gearbeitet? Nein? 
Dann versuchen Sie es 
doch mal mit Ihrem TI in 
der Grundversion und 
diesem Programm. 

Sie müssen versuchen, 


die Äpfel, die übers Fließ- 


‚band laufen und irgend- 


wo vom Band fallen, un- 
ten mit dem Korb aufzu- 
fangen. Ist Ihnen dieses 


gelungen, laufen Sie 
schnell zu einer der 
beiden Tonnen; rechts 


und links; und lassen Sie 
sich für den gefangenen 
Apfel Ihren Lohn gut- 
schreiben. Als ordentli- 
cher Fabrikarbeiter wer- 
den Sie natürlich nach 
dem jeweils gültigen Tarif 
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bezahlt. Wenn Sie 10 Äp- 

fel in der vorgegebenen 

Zeit zur Tonne gebracht 

haben, dürfen Sie am 

nächsten Tag weiter- 
arbeiten. Ihr Tarif erhöht 
sich von Tag zu Tag um 

50 %; die Zeit aber ver- 

kürzt sich jeden Tag um 

etwa 10%. 

Sollten Sie an einem 
Tag mit der Zeit nicht 
hinkommen, werden Sie 
mit Ihrem Lohn entlassen. 

Steuern können Sie 
den Korb mit folgenden 
Tasten: 

‚A‘ links 

‚D‘ rechts 

‚B‘ Funktionstaste 
Die Taste ‚B‘ hat zwei 

Funktionen: 

1. Wenn ein Apfel in der 
Luft ist, kann damit 
der Fall beschleunigt 
werden, wodurch man 
Zeit sparen kann. Der 
Nachteil ıst aber, daß 
man den Korb nicht 
mehr bewegen kann, 
bis der Apfel unten ist. 
Daher sollte man schon 
sehr sicher sein, daß 
man unter dem Apfel 
steht, wenn man die 
Taste ‚B‘ benutzt. 

2. Wenn kein Apfel in der 
Luft ist, kann man mit 
Taste ‚B‘ den nächsten 
Apfel kommen lassen. 
Sollten Sie mehr als 4 

Tage in der Fabrik aus- 

halten, können Sie schon 

stolz auf Ihre Leistung 
sein. 

Viel Spaß mit diesem 

Spiel wünscht 

Torsten Rauer 


Variable: 


Die wichtigsten Variablen: 
= die feste Zeit 
F = Anzahl der noch zu 


fangenden Äpfel 

G = Tarif 

E = Guthaben 

D = Noch vorhandene 


Zeit 
B = 3 mögliche Positio- 
nen des fallenden Apfels 





10 REMKKKRRRKRKKKNKRRRTTNR 
11 REM* 

12 REM* APFELFAENGER 
13 REM%* Copyright by 
14 REM%* Thorsten Rauer 
15 REM* 

17 REM%*Benoetigte Geraete* 
18 REM% TI99/4A Konsole * 


EEE Ze Ze ze 2 


19 REM * 
23 REM%* Speicherbelegung * 
24 REM* 4724 Bytes * 


25 REMRKRKKKRKKRTKTTIHTNN 
26 REM 
100 REM %%%VORBEREITUNGEN 


110 DIM B(3) 

120 CALL CLEAR 

130 CALL SCREEN (8) 

140 FOR I=1 TO 12 

150 CALL COLOR (I,2,8) 

160 NEXT I 

170 CALL COLOR (1,3,8) 

180 CALL COLOR (9,5,8) 

190 CALL COLOR (11,7,8) 

200 CALL COLOR (12,14,8) 

210 CALL CHAR (98, "0O0386CC6D6& 

C56C38") 

220 CALL CHAR (106, "000000001 

SsisrFFFF") 

230 CALL CHAR (115, "1A0OCO81C3 

s6E?ESC") 

240 CALL CHAR (122, "387044545 

454447C") 

250 CALL CHAR (107, "384444FEF 

E?7C?FCSE") 

260 CALL CHAR (35, "FFFFFFFFFF 

FFFFFF") 

270 A=14 

280 Q=?700 

290 D=Q 

300 F=10 

310 G6=25 

320 REM X%%*TITELBIL 

330 PRINT : : : ss sa" ss 
s55 5 5 5 5 5555": 1, 

"Ss AFFELFAENGER s" 
A 5 er 50 EEE 

S 5. 

340 FOR I=1 TO 3 

350 CALL SOUND (200,550,14,57 

5,12) 

360 CALL SOUND (200,550,12,57? 

5,10) 

370 CALL SOUND (200,550,10,57 

5,8) 

380 CALL SQUND(800,210,4,221 

‚2) 

390 NEXT I 

400 PRINT ".s...c.THORSTEN.R 

AUER....s"i : 5 

410 PRINT" ssssssss 


Jjjs3jssssssss":"ber..D....Bb.. 


.s ua.e09 ....:D"5 . . 


420 FRINT " BITTE EINE TASTE 
DRUECKEN" 

430 CALL KEY(0,K,3) 

440 CALL SCREEN(14) 

450 CALL SCREEN(3) 

460 CALL SOUND (50,876,17,863 
‚19) 

470 IF S=0 THEN 430 

480 REM *%%SPIELAUFBAU 

490 CALL CLEAR 

500 FOR I=1 TO 13 

510 READ AA,AB,AC,AD 

520 CALL HCHAR (AA,AB,AC,AD) 

530 NEXT I 

540 FOR I=1 TO 2 

550 READ A$,L,N 

560 GOSUB 640 

570 NEXT I 

580 GOSUB 690 

590 GOTO 840 

600 DATA 1,1,35,96,5,1,106,3 

2,6,1,98,1,6,5,98,1,6,9,98,1 
‚6,13,98,1,6,17,98,1,6,21,98 


1 

9 s 

610 DATA 6,25,98,1,6,29,98,1 
„21,3,122,1,21,30,122,1,22,1 
‚35,96 

620 DATA ZEITHHHHHHS,2,4,GUT 
HABEN#HHHHHHDMHHHTARIFHHHHDM, 
23,2 

630 REM *%XPRINTROUTINE 

640 FOR S5$=1 TO LEN(A$) 

650 CALL HCHAR(L,N-1+88,ASC( 
SEG$(A$,SS,1))) 

660 NEXT SS 

670 RETURN 

680 REM **%ZAEHLER 

690 CALL HCHAR (2,9,35,5) 

700 FOR SS=1 TO LEN(STR$(D)) 
710 CALL HCHAR (2,8+8S,ASC (SE 
G$ (STR$(D),SS,1))) 

720 NEXT SS 

730 CALL HCHAR (2,17,35,16) 
740 CALL HCHAR (2,20, 115,F) 
750 CALL HCHAR (23, 11,35,5) 
760 FOR S3=1 TO LEN(STR$(E)) 
770. CALL HCHAR (23, 10+88, ASC( 
SEG$(STRS(E),SS,1))) 

780 NEXT SS 

790 CALL HCHAR (23,27,35,3) 
800 FOR SS=1 TO LEN(STR$(G6)) 
810 CALL HCHAR (23, 26+88,ASC( 
SEG$ (STR$(G),58,1))) 

820 NEXT ss 

830 RETURN 

840 REM *%%*BEGINN 

850 CALL HCHAR (21,A,107) 





860 
870 
880 
890 
900 
910 
920 
930 


0=0 

RANDOMIZE 
B({2)=INT(RND%*18+5) 
B(i)=B(2)-1 

B(3)=B(2)+1 

FOR I=1 TO B(2) 

CALL HCHAR (5,1,115) 

CALL SOUND (3,110,0,112,0 


‚1110,3) 


940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
0) 
1050 
1060 
1070 
1080 


CALL HCHAR (5,1,106) 
NEXT I 

FOR I=0 TO 30 STEP 5 
CALL SOUND (-300,750,ID) 
NEXT I 
REMX**BEWEGUNGSABLAUEFE 
FOR 1=7 TO 20 

IF 0O=1 THEN 1030 
R=INT(RND*3+1) 

CALL HCHAR(I,B(R),115) 
CALL SOUND (20,140,3,-1, 


IF 0<>0 THEN 1160 

CALL KEY(1,K,$8) 

D=D-1 

IF (K=1)+(K=3) +(K=16) TH 


EN 1090 ELSE 1160 


1090 
1100 
1110 
1120 
1130 
1140 
[e) 
1150 
1160 
1170 
1180 
1190 
1200 
20 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 


IF K<>16 THEN 1120 

o=1 

GOTO 1160 

CALL HCHAR (21,A,32) 
A=A+(K-2) 

IF (AX4)+(A>27)THEN 140 
CALL HCHAR (21,A,107) 


CALL HCHAR(I,B(R),32) 
NEXT I 

GOSUB 680 

IF A=B(R)THEN 1350 

FOR I=550 TO 110 STEP - 


CALL SOUND (-300,1,2) 
NEXT I 

CALL KEY(1,K,8) 

D=D-1 

IF D<=0 THEN 1760 

IF D>40 THEN 1280 

CALL SOUND (35, 342,0) 

IF (K=1)+(K=3)+(K=16) TH 


EN 1290 ELSE 1230 


1290 
1300 
1310 
1320 
[e) 

1330 
1340 
1350 
1360 


) 
1370 


IF K=16& THEN 850 

CALL HCHAR (21,A,32) 
A=A+(K-2) 

IF (A<4)+(A>29)THEN 140 


CALL HCHAR (21,A,107) 
GOTO 1230 

FOR AA=0 TO 30 STEP 10 
CALL SOUND (-400,1450,AA 


NEXT AA 


60 


1380 
1390 
1400 
1410 
1420 
1330 
1430 


P=1 

GOTO 1230 

A=A-(K-2) 

IF P=i THEN 1340 

IF I<20 THEN 1150 ELSE 


REM %%%*TÜONNE MIT APFEL 
**XXERREICHT 


1440 FOR 1=585 TO 1150 STEP 


25 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
330 
1520 
7,0) 
1530 
R" 
1540 
1550 
1560 
1570 
ın 

1580 
1590 
1600 
1610 
1620 


CALL 30UND(25,1,0) 
NEXT 1 

E=E+G 

FsF-1 

P=0 

GOSUB 690 

IF F=0 THEN 1520 ELSE 1 


CALL SQUND (600, 567,0,68 
A&="PRIMA!DU HAST WIEDE 
L=11 
N=6 


GOSUB 640 
A$S="EINEN TAG GESCHAFFT 


w 


nuuı mM 
oo0Xr 


oU0ZTrT 


GOSUB 640 

1630 G=G+ (6/100%50) 

1640 IF G<>INT(G)THEN 1650 E 

LSE 1670 

1650 G=INT (G+1) 

1660 E=E+(INT(D)) 

1670 9=0- (0/100%10) 

1680 D=Q 

1690 F=10 

1700 GOSUB 690 

1710 CALL KEY(0,K,8S) 

1720 IF S=0 THEN 1710 

1730 CALL HCHAR(11,1,32,32) 

1740 CALL HCHAR (13,1,32,32) 

1750 GOTO 850 

1760 REM *%*ENDE 

1770 FOR I=1 TO 30 STEP 3 

1780 CALL SOUND(150,110,1,35 

0,0) 

1790 NEXT I 

1800 CALL CLEAR 

1810 PRINT : :ı : : ı ı ı ı: 
ı" LEIDER HABEN SIE AN DIES 


EM": :" TAG NICHT SCHNELL GE 
NUG": 2" GEARBEITET.": : 

1820 PRINT " DAHER MUESSEN W 
IR SIE ": ;" MIT IHREM BISHE 
R ": 2" ERARBEITETEN KAPITAL 
von": :" ";ES"DM ENTLASSEN. 


1830 
1840 
1850 
1860 
0,0) 


1870 
1880 


CALL KEY(0,K,S) 

CALL SCREEN (16) 

CALL SCREEN (9) 

CALL SOUND (25,110,0,110 


IF S=0 THEN 1830 

CALL CLEAR 

1890 PRINT " MOECHTEN SIE SI 
CH ": =" NOCHEINMAL BEI UNS 
BEWERBEN": : :" WENN JA DANN 


’IJ° DRUECKEN": : 3: : 
1900 CALL KEY(0,K,$) 
1910 CALL SCREEN (4) 
1920 CALL SCREEN (5) 
1930 CALL SOUND (25,110,5,-1, 
0) 
1940 IF S=0 THEN 1900 
1950 IF K=74 THEN 1980 
1960 CALL CLEAR 
1970 END 
1980 P=0 
1990 0=0 
2000 RESTORE 600 
2010 GOTO 100 


BÖRSE | 


GPL-Disassembler für XB+32K+Disk mit ausf. 
Anl. 20 DM. Deutsche Erklärung aller Forth-Wör- 
ter 20 DM. Suche Anleitung zum SST-Basic- 
Compiler. R. Prinzensing, Geitlingstr. 27, 4630 
Bochum 6 

Maschinenprogramme für XB, MM u. E/A: GPL- 
Disassembler, Fast-Copy etc. Info gg. Rückum- 
schlag: Eichhorn, Mathias, Ziegelheck 1, 6240 
Königstein 

Tausche oder verkaufe Prog. in X-Basic oder As- 
sembler. Überwiegend Anwenderprog. / Utili- 
tys. Manfred Rüß, Tel. 030/363 26 55 
LOGO-Interpreter ermögicht tolle Grafik Spiele- 
reien (XB) 20 DM an M. Bannert — Mozartstr. 5 
8676 Schwrzenbach/Saale. Tel: 099284—8338 
Verk. TI-Kochbuch 1 = 2 = DM 40,— TI-Tips & 
Tricks = DM 40. Joystickadapter = DM 25.M. 
Bannert. Tel. 09284-8338 

Verk. .TI99J4A + Ex- Basic + Parsec + Pec. Kabel 
+ Flougsimulator + Prog. + Listings nur 495 DM. 
Neupk. 800 DM. Tel. 02671/14583 








Ti99JAA + + Ex-Basic + Rec-Kabel + Haushalts- 
und Schachmodul + 2 Bücher, VB 650 DM, nur 
kompl. Tel. 0211/55 45 09, nach 16 Uhr 





TI. -Module, „ Bücher, Drucker, Programme. 3S- 
Liste geg. Freiumschalg. Ralph Schad, Wasser- 
bett 6, 68 Mannheim 51 

Suche für den Ti: Spielmodule, Laufwerk, 32k 
Erweiterung, Schnittstelle extern oder wenn gün- 
stig in (mit) Peri-box. 0571/71597 
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REMKRRRKKRRKRRRRKKKTTKKTR 


il REM+ * 
12 REM+ SEE-SCHLACHT * 
13 REM+ Copyright by * 
14 REM* Ruhmer & Ruhmer * 
15 REM* * 
17 REM%Benoetigte Geraete* 
18 REM% TI99/4A Konsole * 
19 REM* Joystick 1&2 * 
28 REM* * 
21 REM* * 
23 REM* Speicherbelegung + 
24 REM* 5548 Bytes * 
25 REMIRRRRRKRKKNRTTTRTTTNK 
26 REM 


228 CALL COLOR(12,16,19) 

238 CALL CHAR (122, "F84444487 
6514AC4") 

248 CALL CLEAR 


238: PRINT # 9° nenn 
Sesreenseeec "zZ" - Ruhmer Sof 
tan a N nid 
resents": : : ı ı 

268 PRINT YRRRRKKRRTRKKIHRTTK 


KIRKRIKHLIIRR. 2... See-Schlac 
Ntoooouo ce RRRRRRKKRRHRKNKKRTR 

KKHRIRKKIIK": 0 

278 FRINT "COPYRIGHT BY Ruhm 

er Manfred ”: 
Ruhmer Klaus” 

288 GOSUB 1879 

298 CALL KEY(1,K,T1) 

388 CALL KEY(2,K,T) 

s1ı8 IF (T=-1)+(Ti=-1)THEN 31 
5 ELSE 29% 

315 GOSUB 195% 

328 CALlL CLEAR 

3328 CALL CHAR (97, 
FFFFFF") 

3498 CALL CHAR (98, "SOCQEZEOFE 
FCFEFF”) 

358 CALL CHAR (99, 
E&FEFF") 

368 CALL CHAR (190, "FF7FSFSFI 
FOFQ?OL") 

378 CTALL CHAR (1@1,"FFFEFEFCF 
CFCFESE") 

388 CALL CHAR (182, "Q1M73F3F? 
F?F?FFF") 

398 CALL CHAR (1298,"") 

488 CALL CHAR (111, "3C3C3C7E? 
999?7ESC") 

418 CALL CHAR (119, "E9aaagısi 
5") 

428 CALL CHAR (112, "G0@@9@ıFi 

gigala") 

438 CALL CHAR(113, "099909F01 

g1aigıa") 

449 CALL CHAR (114, "1@1810F8" 


EEE", 


"FEFFFFEFFF 


"SICOHCACSCH 


458 CALL CHAR(I1S, "ISIS1S UF" 
) 


468 CALL CHAR(116, "191918101 
2181910") 

478 CALL CHAR (117, "QOQ0O8@FF" 
) 


488 CALL CHAR (118, "1@121I91Fi 
g1ga1910”") 

4978 CALL CHAR (119, "1910819FQ1i 
gigıaıa") 

589 SGt1)=d 

518 56G(2)=@ 

528 TALL COLOR (18,16,6) 

538 CALL COLOR(12,1,1) 

5348 CALL COLOR (8,3,3) 

558 CALL COLOR(9,8,6) 

568 CALL COLOR(1,6,6) 

578 FOR N=1 TO 2 

589 5U(N)=15 

S98 SH(N)=3 

688 NEXT N 
618 Zti)=2 
628 zZ(2)=5 
638 213)=3 
648 Z(4)=6 
658 PRINT 
“rrrpuutuuuaaadaaaaaaaaaaaaa 
aaa'tPL.i:ie...daae.vcooreı. 
.da*tSIEGE:" 

668 PRINT ".....daac....fCc.. 
..a”vuuuuuub.....daaaaaaaab. 
..atPL.2:1ab.....daaaaaaaac 
«‚a”tsIESE:" 

678 PRINT "aac.....de....daa 
b a’suuuuuuaaa.sccsccsccennıı da 
TTS NNAEBD anne 
..daaaaaaaa" 

688 PRINT "aase....veurunnon 
see. .daaae 380.200 crn un un nn 
...2,..daac a8...5:.Ffab....tab 
wre... aaab" 

698 FRINT "......,faaaab faaa 
.»..daaa.....faaaaaaaaaae 
user. daa.....dae. .daaasae. 
seetfEoonaaa" 

788 PRINT " 
RED ee 
<AABBIBBBl ne ie 
..daaaaaaaa”" 

718 PRINT "..vcc2s2csetb.cvcuroen 
„..daaaaaaa.......faab..fac. 
sun. .daae B.....faaaacfaae. 
FE «7 Pe 

728 PRINT "ac...faaaaaaaae.. 
sueucana. . Faaaaaaaaaaaaaabfa 
aaaaaaaaaaa" 

738 CALL HCHAR (24,2,94,39) 
748 CALL VCHAR(1,1,94,24) 
758 CALL VCHAR(1,2,94) 

768 CALL VCHAR(2,2,97,22) 


BAANAAAAAARANAAAAAMN 
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CALL 
TALL 
SALL 
CALL 
GALL 
CALL 
CALL 
CALL 
CALL 
CALL 


HCHAR (1,31,117) 
HCHAR (4,31, 117) 
HCHAR (7,31,117) 
HCHAR (8, 31,94) 
VCHAR (1,32,116,7) 
VCHAR (8,32,94,17) 
VCHAR (9, 31,97, 15) 
HCHAR (2, 31,53) 
HCHAR (5, 31,53) 
HCHAR (1,32, 113) 
CALL HCHAR (4,32,119) 
CALL HCHAR (7,32, 114) 
RANDOMIZE 

M=9 

N=INT(RNDX2) +1 

M=M+i 

A{N)=INT (RND#28) +3 
B(N)=INT{RND*29) +3 
CALL GCHAR(B(N),A(N),C) 
IF C<>32 THEN 938 
CALL HCHAR(B(N),A(N), Lil 


A$=STR$(SG(N)) 
SP=31 

ZE=Z {N+2) 

GOSUB 1668 

GOSUB 1718 

IF M=1 THEN 928 

REM % HAUPTPROGRAMM %* 
CALL JOYST(N,XIN),Y(ND) 
CALL KEY(N,K,T) 

IF KX}18 THEN 1198 
GOSUB 1298 
1898 GUTO 1178 
1128 IF (ABS(XIN))=@)(ABS(Y 
(N))=@) THEN 1178 
1118 CALL GCHAR(B(N)-(YiN) YA 
),AINI+IXINIZ/4),C) 
1128 IF C=32 THEN 1138 ELSE 
1179 
1138 CALL HCHAR (B(N)-(Y(N)/A 
),AINI+IXIN) ZA), 111) 
1148 CALL HCHAR (B(N),A(N),32 


1818 
1929 
1938 
1949 
1859 
1969 
1979 
1089 


) 

1159 EiNI=BIN)-(Y(iN)/A) 

1168 A(N)=AIN)+(XIN)/A) 

1178 GOSUB 1718 

11898 GSTO 1958 

1198 REM SCHUSSUNTERFROGRAMM 
1288 R{N)=A(N) 

1218 5S(N)=BiN) 

1228 FOR I=1 TO 16 

1238 CALL JOYST(N,X(N),YIND) 
1248 IF (ABS(X{N))=4) +(ABS(Y 
(N))=4) THEN 1278 

1259 NEXT I 

12589 RETURN 

1278 ZE=Z(N) 

1289 SP=39 

12998 SU(N)=SU(N)-i 

13989 IF SU(N)<S®@ THEN 1548 





1319 
1329 
1339 


1349 
) 


CALL SOUND(129,-6,9) 
A$=STR$ (SU(N)) 
IF LEN(A$)=2 THEN 1359 


A$=5TR$ (SU (N) )ECHRS$ (120 
1358 GOSUB 166% 

1368 FOR I=1 105 

1378 CALL GCHAR (S(N)-(YIN)/A 
),RINI+XIN)Z/4),C) 

1388 IF C=94 THEN 1268 

1398 CALL HCHAR(S{N)-(Y(N)/4 
),RINI+(XIN)/4), 112) 

1498 S(NI=S{N)-(Y(N)/M) 

1418 RiN)=R{N)+(XIN)/A) 

1428 CALL HCHAR(S(N),R{N),32 
) 


1439 
1448 
1459 
) 

1468 
1479 
) 

1489 
1499 
1599 
1512 
1529 
1539 
1599 
1559 
1568 
1578 
1588 
1599 
1698 
1819 
1629 
1639 
16938 
1659 


IF C<>111 THEN 1498 
GOTO 1538 
CALL HCHAR (BiN),A(N),32 


GOSUB 1719 
CALL HCHAR (B(N),A(N),S2 


GOTO E78 

IF C<>32 THEN 1268 
NEXT 1 

GOTO 1268 

REM * AUSWERTUNG % 
GOSUB 1719 
SHINI=SSHIN)-1 

GOSUB 1879 

IF SH{N)>@ THEN 1639 
GÜSUB 1718 
SG(NI=SG (N) +Hi 

G0SUB 1878 

GOSUB 1878 

IF SG(N)>2 THEN 1768 
60T0 57% 

GOSUB 1718 

GOTO 1458 

REM * SCHREIEROUTINE * 
1668 FCR I=1 TO LEN(A$) 
1678 CALL HCHAR(ZE,SP,ASC(SE 
G$(A$,1,1))) 


1688 SF=SF+1 

1698 NEXT I 

1788 RETURN 

1718 IF N=1 THEN 1748 

1728 N=1 

1738 GOTO 1759 

1748 N=2 

1758 RETURN 

1768 CALL CLEAR 

1778 FOR I=1 TO 8 

1788 CALL COLOR(1,16,8) 

1798 NEXT I 

18088 CALL SCREEN (8) 

1818 PRINT "PL."jN5 "HAT GEWO 
NNEN II IERE 2.2... 20000 
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1828 
EGEN 
N) n 

1838 


1848 
22 
1858 
1868 
1878 
1889 
1898 
2,6) 
1998 CALL 
1918 CALL 
9,5,392,3) 
1928 CALL SOUND (79,119,39) 
1938 CALL SOUND (459, 339,3,39 
2,2,523,@) 
1948 RETURN 
1958 CALL CLEAR 
1968 PRINT "...%%% SPIELANLE 
ITUNS %%#": : "SIE BEFINDEN 
SICH TIEF UNTER": :"DER WAS 
SEROBERFLAECHE IN": : 
1978 PRINT "EINEM U-BOOT DAS 
SIE MIT": :"DEM JOYSTICK ST 
EUERN MUESSEN": :"ES SPIELEN 
2 SPIELER DIE’: : 
1988 PRINT "IHRE U-BOOTE JEW 
EILS MIT”: :"JOYSTICH 1 ODER 
JOYSTICK 2": 3 "STEUERN" 
1998 PRINT : :"TASTE D 
RUECKEN" 
20888 CALL KEY(1,T,W 
2818 CALL KEY(2,T1,U1) 


PRINT 
DEN 


"NOCH EIN SPIEL 6 
"CHAMPION ? (J/ 


CALL KEY(8@,K,T) 
IF (K=74)+(K=186) THEN 5 


IF T=8 THEN 1839 
END 
CALL 
CALL 
CALL 


SOUND (128,262,8) 
SOUND (78, 119,39) 
SOUND (128,262,8,33 


SOLIND (79, 1198,38) 
SOUND (129, 262,7,33 


2828 IF (U=@)*tUI=E@)THEN 2ag 
a 

2938 CALL CLEAR 

2848 PRINT "SIE MUESSEN NUN 


VERSUCHEN": "DEN GEGNER ABZ 
USCHIESSEN": 2 "GESCHOSSEN WI 
kD INDEM MAN": 

28598 PRINT "AUF DIE ACTION-T 
ASTE DRUECKT": 2 "UND SOFORT 
DEN JOYSTICK IN": 2 "DIE GEWU 
ENSCHTE SCHUSS-": ; 

20862 PRINT "RICHTUNG DRUECKT 
u «X%% VIEL SPASS * 


X: CO" TASTE DRUEC 
KEN" 
2878 CALL KEY(1,T,U) 


2989 
2998 
[) 

2198 
2118 


CALL KEY(Z,T1,Ui) 
IF (U=8)%tULi=8)THEN 297 


CALL CLEAR 
RETURN 


Neue Telefon-Nummer! 






089/1298013 Ab 1.10.85! 


BUNTE MISCHUNG: 


Pokelisten- 
generator 


Das Programm dient zur 
Erstellung von Pokeli- 
sten auf einem Drucker. 
Es fragt zunächst die 
Schnittstellenbezeich- 
nung sowie Anfangs- und 
Endadresse des gewünsch- 
ten Bereiches ab. An- 
schließend wird die Poke- 
liste in DATA-Zeilen aus- 
gedruckt. Ein im Spei- 
cher befindliches As- 
sembler-Programm kann 
.dadurch in eine abschreib- 
fähige Form gebracht 
und später in einem BA- 
SIC-Programm verwendet 
werden. 


Karnaugh- 
Veitch- 
Diagramm 

Dieses Programm dient 
zur Ermittlung von 
Schaltfunktionen aus 
einer Wahrheitstabelle. 


Dabei: wird zunächst eine 
‚Wahrheitstabelle für vier 
Variable erstellt und die 
Eingabe des jeweiligen 
Zustandes für A abge- 
fragt. Bei einer fehlerhaf- 
ten Eingabe kann durch 
Betätigen der Taste K 
der zuletzt eingegebene 
Wert korrigiert werden. 
Mit x' werden die soge- 
nannten don’t care Fel- 
der gekennzeichnet. Sie 
werden dann verwendet, 
wenn der Zustand des 
Ausgangs A für die Be- 
rechnung der Schaltfunk- 
tion ohne Bedeutung ist. 
Nach Abschluß des Ein- 
gabevorganges erstellt das 
Programm das soge- 


nannte KV-Diagramm, in- 
dem es die Werte für A 
bestimmten Feldern des 
Diagramms zuordnet. Das 
KV-Diagramm ist die gra- 
fische Veranschaulichung 


der Wahrheitstabelle 
einer Schaltfunktion. 
Dieses Verfahren der 
Vereinfachung von 


Schaltfunktionen wurde 
1952 von E.W. Veitch er- 
funden und 1953 von M. 
Karnaugh weiterentwik- 
kelt. Das Programm er- 
mittelt nun aus dem Dia- 
gramm die Schaltfunk- 
tion, indem es mit 1 ge- 
kennzeichnete Felder zu 
Gruppen zusammenfaßt 
und diesen ein bestimmtes 
Ergebnis zuordnet. 

Dieses Programm kann 

in zwei Arten angewen- 
det werden: 
Zum einen können vor- 
handene Schaltungen mi- 
nimiertt werden. Dazu 
wird aus der vorhandenen 
Schaltung die Wahrheits- 
tabelle ermittelt und ein- 
gegeben. Für Eingangs- 
kombinationen, die nicht 
vorkommen oder nicht 
von Bedeutung sind, wird 
x eingegeben. Das Pro- 
gramm ermittelt aus der 
Eingabe die optimierte 
Schaltfunktion, aus der 
die Schaltung entworfen 
werden kann. 

Zum anderen kann aus 
einer entwickelten Wahr- 
heitstabelle die minimier- 
te Schaltfunktion ermit- 
telt werden. Die Eingabe 
erfolgt analog zum o.a. 
Beispiel. 

Bernhard Schmidt 


Hexdump 

Mit diesem Programm 
kann der Speicherinhalt 
auf einem Drucker ausge- 


geben werden. Es wer- 
den jeweils 16 Werte in 
hexadezimaler Form und 
die Hex-Adresse des je- 
weils ersten Wertes ausge- 
gegeben. 

Bernard Schmidt 


Widerstand 


Das Programm „Wider- 
stand“ ist für den Elek- 
tronik-Bastler gedacht. 
Im Menue kann folgen- 
de Auswahl getroffen 
werden. 
0 — Errechnen von paral- 
lelgeschalteten Widerstän- 
den zu eınem Ersatzwi: 
derstand 2, 3, 4 und 5 
parallele können berech- 
net werden. 
1 und 2 berechnet der 


Farbcode 
z.B. 0 = schwarz oder 
rot=2 


3. 4 u. 5 errechnen wahl- 

weise Widerstand, Strom 

oder Spannung. 

6. ist das Programmende. 
Rüdiger Hussy 


Space Invaders 


Der alte Spielhallenhit 
„Space Invaders“ hat nun 
auch endlich den TI99 
eingeholt. Zwar eine et- 
was abgeänderte Version, 
auch etwas leichter zu 
spielen, aber unverkenn- 
bar standen die Original- 
Invaders für dieses Pro- 
gramm Pate. Zu den Spiel- 
regeln gibt es da wohl 
nicht mehr viel zu sagen. 
Jeder Computerfreak ist 
mit diesem Oldie vertraut. 
Daß wir es trotzdem ab- 
drucken, hat drei Gründe. 
Erstens hat sich der 
Autor viel Mühe damit 
gemacht und das soll na- 
türlich auch belohnt wer- 
den, denn dies ist Eure 
Zeitschrift und wir 
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weisen nur manchmal ein 
bißchen in die Richtung, 
wo’s lang gehen sollte. 
Zweitens ist das Spiel in 
TI-Basic geschrieben wor- 
den. Damit denken wir 
an die User, die („immer 
noch?‘“‘) kein Extended- 
Basic Modul besitzen 
(Jetzt wird’s aber langsam 
Zeit). Und drittens ist die 
Grafik ganz toll gewor- 
den. Auch die Spielge- 
schwindigkeit ist für die 
mageren Möglichkeiten 
des TI-Basic hervorragend 
programmiert. Zum Spie- 
len nehmt Ihr übrigens 
Euren Joystick aus der 
Schublade. Damit läßt 
sich die Kanone nach 
rechts und links bewe- 
gen. 


Prognose- 
Programm 


Sinn: Dieses Programm 
errechnet aufgrund von 
max. 22 feststehenden 
Werten bis zu 22 Werte 
in die Zukunft (Prognose 
oder Hochrechnung). 
Diese Werte werden 
auf dem Bildschirm aus- 
gegeben. Anschließend 
werden diese Hochrech- 
nungswerte auf einer Gra- 
fik dargestellt. 
100-160 Dimensionie- 
rung und Titel 
170 Einleitung 
180-300 Abfrage der 
feststehenden Werte 
310-430 Ausgabe der 
Prognosewerte (Hoch- 
rechnung) 
440-820 Ausgabe der 
Grafik 
830-900 Ende des Pro- 
gramms 
910-950 Unterpro- 
gramm Stotterdruck 
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KKKKHKTNRKRTIHTHKTHTNTNR 


[| 
111% %* 
ı22'% PROGNOSE * 
131% * 
141% Copyright by * 
151% * 
16! $ R. Eitter * 
1714 % 
18! x * 
191 % Bercsetigte Geraete 3 
28 !' X T197,/’4A Konsole % 
21 '% Ert. Basic % 
220% * 
26 ! %$ Speicherbelegurg % 
271% 4447 Bytes % 
ze! x * 
ri DEE 2 2 20 2 2 2 2.2 © 2 © 2 2 2 2 5 2 2 2 2 2 

[) 


32 ! 

189 CALL CLEAR :: DIM W122), 
DAT(22) ,WEi22):: CALL CHAR(3 
3, "BOGASAFFFF") 

118 WE="FROGHUSE -PROGRAMM" 
128 CALL STOTT(12,W8) 
139 ZEi=i1l :: SPiI=3 :: 
3 1: SP2=25 

148 CALL RAHMEN(ZE1,SFA,ZEZ, 
ep2) 

158 DISPLAY AT(24,2::"narogr 
rmiert von r.bitter" 
168 FOR I=si TO 469 :: 
178 CALL EINLETTUNG 
188 CA CLEAR 

198 DTSFIAY AT(I,LIS "WIEVIEL 


ZE2=1 


a 


NEXT 1 


WERTE LIEGEN vOR:® :: DISPL 
BY AT{2,1): "MAN, 22 YERTE® 
ROCEPT ATIL,ZUI:N CHLL 
HOHAPI2,R,RR,DE! 
208 IF N‘?7 THEN 199 
218 FOR T=4 TON 
228 DISFLAY ATLI+2,@) "WERT" 
©ı DISPLAY AT(I+2,@V:USING 


ag} 
I! 
23@ NEYT I 

248 T=LOC(WIN)) 


DISPLAY AT(1+2,1@) 
s: ACCEPT AT(1:2,15):Wt 


258 X=6 
268 FÜR I=2 TON. :: 1.=LO8 We 
Ile TemTah 2: KeY#il- VIEL 


: NEXT TI 
27O A=EHtDRKIN-II-TI/NIÄNHL 
) 
288 G=EXPIA)-I :: G=rIDGKLEYP 
(AYN-I)t: GrINTERKHIAG+,S) 10a 
206 DISPLAY AT{(24,1)2"MITTL. 
VACHSTUMSRATE:” ı: DISPLAY A 
TI2A,ZZI USING "BHR.HH"TIG :: 
COLL HCHAF(24,31,27) 
388 CALL KEYIG,KE,S::: 
a THEN 3ag 
S1E CALL CLEAR 
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328 DISPLAY ATt1,1):"HOCHREC 
HNUINGS-WERTE?" 3: DISPLAY AT 
(2,1):"MAXIMAL 22 WERTE" :: 
ACCEPT AT(1,25):M CALL HC 
HAR (2,2,33,28) 
338 G=EXP(A)-1 
-AX(N-1)/2) 
348 CALI. HCHAF(1,2,22,28) 
DISFLAY AT(1,2):"HOCHRECHNUN 
G DER PERIODEN" 

358 K=N :: H=(G+1)“K 

368 FOR I=1 TOM 
378 WEIT)=WTAH :: 
WE(I)X19G+.5) /190 


389 DISPLAY AT(I+2,3): "WERT" 
s* DISPLAY AT(1+2,8):USING 
"AR"SI 52 DISPLAY AT(I+2,19) 
re DISPLAY AT(1+2,15):U 

"AHRHHRH"SWELT) 


WT=EXP(T/N 


.s. 
.. 


WE(I)=SINTL 


SING 
398 K=K+i 

488 H=(G+1)°K 

418 IF I=M THEN 434 
428 NEXT I 

438 CALL KEY(S,KE,S):: 
@ THEN 436 

448 CALL CLEAR 
N(i6&) 

458 DISPLAY AT(29,1): "HÜCHRE 
CHNUNG: ";M} "PERIODEN" 

466 Si$="?F7FT7FFFFFPFFEIR 

478 S2$="BG?F?F?FFFFFEIFIFORE 
B?F?F?FPFPFPFOBBAAS?FFFTF?FR 
FOOGBRABSGHETF 7F?FFF" 

488 53$="HHABGUMALTTE ?FFFERE 
GERESBLAETF ?FEXSEDEIAHAARS 
FÜBGEEORAGERGADHS" 

498 TALL CHAR (IE, CIE) CAL! 
CHAR9?,SPerr: CALL CHAR (AG 
1,82%) 


599 SA$="FEOEOSISABALÜEISIFE 
AOBSAEUAEBGBHFFEOGDAALHSAALTE 
BSLHRESMEIRGEABHE" 11 CALL C 
HAR(112,39$) 2: CALL COLOR (11 
‚3,0 

519 SS4="FAGHGGAGAHGFORZKIF! 
aieinleleainm!6ll!ä1cl al all gl 
@® 2: CALL CHAR(116,°5$) 

528 DISPLAY AT(IA,LIT"TIET 1@ 
@% SUMME ODER MAXIMUM": : "DE 
R DATEN ? (3/M)" 

538 ACCEFT AT(14,14):MODe 
548 IF MODt{2"S" AND MODgi!" 


IF $= 


CALL SCREE 


M® THEN E32 

559 FOR 1=1@ TO 14 :: CAl.. H 
CHAF(7,2,22,28):: NEXT I 5 

568 CAlL COLOR (9,7,1,18,7,0 

578 FC? 1=8 TO I@ :: DISPLAY 
ATtZXL+DLAIVTUEING "BAR": tie 


-I)2I@ :: NEXT I 
588 FCR I=s1 TO 16 :: DIEFLAY 





ATI2XI, A) "po" 34 
{28T 1,9):"5" 

598 DISPLAY AT(2%1,27): "u": 
: DISPLAY AT(2X1+1,2%9):"v" 5: 
° NEXT I 

688 DISPLAY AT(22,4):"q" 


DISPLAY AT 


618 FOR I=i TO 11 :: DIEPLAY 
AT{22,2%X1+3):”"rr" ©: NEXT I 

628 DISPLAY AT(22,27):'t" 

638 DA=WELI) 

648 FOR I=2 "O M 

658 DA=MAXITA,WELT)) 

668 MEXT I 

678 IF MOD$="S" THEN 738 

"688 DISPLAY ATt1L,27):"MA" 


FOR I=1 TO M 

WELTI=WELI) /DAXLEO 
WELTI=INT(WELTDI+.S) 

NEXT 1 

738 6010 746 

748 DA=4 DISPLAY AT(1,27) 
sugyn FOR I=1 TOM :: DA= 
DA+WELTI:: NEXT I 

759 50T0 698 

768 FOR I=1 TOM 

778 HIEHE=INT(WE(I)/S) 

788 ZUS=WE (I) -HOEHEXE 

798 CALL VCHAR(ZI-HIEHE,I+E, 
184-2ZUS, 1) 

888 CALL VCHAR (22-HOEHE,I+6, 
9&£ ,HCEHE) 

818 NEXT I 

828 CALL KEY(@,KE,SI:: 
& THEN 824 

828 We="E N D E" 

848 CALI. CLEAR 

8598 CALL STOTT(12,W$) 
868 ZEi=11 SPpi=13 :: 
13 SP2=21! 

878 CALL RAHMEN(ZE1,SP1,2E2, 
sPp2) 

888 DISPLAY AT(24,3): "PROGRA 
MMIERT VON R.BITTER" 


698 
788 
719 
729 


IF 5= 


ZE2= 


898 FOR I=1 TO 884 :: NEXT I 
998 END 

919 SUE STOTT(12,W$) 

928 Q=INTt32-LEN (WE) ) /2+1 


938 


FOR AX=@ TO LEN(W$) +Q-1 
S$=SEGS (WE, AX-Q+1,1):: FO 
R AZ=31 TO AX STEP -1 
948 CALL HCHAR(12,AZ+1,32):: 

CALL HCHAR (12,A2,ASC (SE) ):: 

NEXT AZ :: NEXT AX 

958 SUBEND 
968 SUB RAHMEN (ZE1,SF1,ZE2,S 
P2) 
978 CALL CHAR (128, "O998999FFF 
F",129,"1818181818181818",193 
0, "BU9QO@ABLFIF181818",131,"99 
QAGAUFSFE1L81815", 132, "1818181 
FIF",133, "LS 318F8F8*) 
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988 CALL HCHAR (ZE1,SP1,139): 
© CALI. HCHARTZE1,SP2,121):: 
CALL HCHAR (ZE2,SP1,132):: CA 
L!. HCHAR (?E2,SF2,133) 

998 CALL HCHAR(TEI,S71HL,123 
‚SP2-SP1-1\ 

1888 CALL HCHAP (ZE2,3P1+1,12 
8,8P2-SPi-1) 

1818 TALL VCHARZEI+1,SPI,!2 
9,ZE2-ZE1I-!):: CALL VCHAR(ZE 
!+1,8$P2,129, ZE2-ZE1-1) 


1928 SUBEND 

10838 SUB EINLEITUNG 

19848 CALL CLEAR 

1858 ZEi=1 :: SPi=2 :: ZE2=2 
4 ı: SP2=31 

1868 CALL RAHMEN (ZE1,SP1,ZE2 
‚SP2) 


1878 DISPLAY AT(?,8): "HOCHRE 
CHNUNGEN" CALL. HCHAR (3, 19 
‚32,14) 

10888 DISPLAY AT(4,1Y: "DIESES 
PROGRAMM ERFECHNET"T "AUF 
SRUND VON MAX.22 EEET-": 98 
TEHENDEN WERTEN BIS ZU 22": 

:"NERTE IN DIE ZUKUNFT" 

1098 DISPLAY AT(12,1):"(PROG 
MOSE}. VORHER WIRD DIE": :"MI 
TTLERE WACHSTUMSRATE,AUF": : 
"GRUND NER EINGEGEBENEN WERT 
E" 

1188 DISPLAY AT(19, 1): "ANGEZ 
EIGT.JE MEHR WERTE EIN-": ;" 
GEGEBEN WERDEN UM SO GENAUER 
: "DIE PROGNOSE. 

ya“ 


11198 CALL KEY(@,KE,S)I:: IF S 
=8 THEN 111 

1128 FOR I=4 TO 23 :: CALL H 
CHAR (1,3,32,28):: NEXT I 


113298 DISPLAY AT(4,1):"NACH D 
ER AUSGABE DER FROG-"; : "135 
E KANN DURCH DRUECKEN": : "EI 
NER TASTE DIE ERRECHNETEN"®: 
"WERTE AUF EINER BALKEN-" 
11498 DISFLAY AT(12,1):"GRAFI 
K AUSGEGEBEN WERDEN. " 
1159 DISPLAY AT(22,26): 
1168 CALL KEYIA,KE,SIE: 
=@ TUEN 11659 

1179 SUBEND 
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960-1020 Unterpro- 


gramm Rahmen ist. 


Besitz des Xbasic-Moduls 


1030—1170 Unterpro- 
gramm Einleitung 


Anm. der Redaktion: Der 
Programmierstil deutet 
darauf hin, daß der Autor 
noch nicht allzulange im 


TI-Basic und Xbasic- 
Befehle sind bunt durch- 
einander gemischt. Durch 
eine korrekte Program- 
mierung in Xbasic wäre 
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ID N ERKKIRKIKHKKKIIIT NINE 
11 ! x 
1213 WIDERSTAENDE % 
131% * 
14! x Copyright by %* 
33% Ruediger Hussy % 
16 !'% * 
171% * 
19 ! % Benoetigte Geraeste * 
28 !ı% T19P7/4A Konsole * 
211% Ext. Basic % 
221% & 
26 ! %* Speicherbelegung > 
271% a89i Bytes % 
28 ! + 4 
ri Zu BE 3 7 5 = = 2 2 2 2 2 2 2 2 2/2 2 22 22 272 
38 ! 

298 GN BREAK NEXT :: ON WARN 
ING NEXT 

3088 CALL TLEAR :: CAiL SCREE 
Nt2) 

318 Y=%+1 :: CALL COLOR (X,11 


‚Pit: IF %=14 THEN 328 


328 GOT0 319 

338 CALL CLEAR 

348 PRINT "...WIDERST 

AND....." 

358 PRINT :: PRINT 

368 PRINT " @,..BY...RUED 
IB ER rue ara nn 
een URS TV," 

378 PRINT :: PRINT :: PRINT 
:: PRINT :: FEINT "BITTE TAS 

TE DRUECKEN" 

s3e@ PRINT :: FRINT :: PRINT 
:: FRINT :: PRINT 

398 CALL KEY(8,K,S) 

488 IF S=&@ THEN 399 

419 

519 ! 

528 CALI. CLEAR 

538 PRINT "......MENUE" 

549 Y=d 

559 PRINT :: Y=Y+1 :: IF Y=3 
THEN 576 

568 5070 558 

=78 PRINT "8 FUER PARALELLSC 

HALTUNG" 3: PRINT :: PRINT " 


1 FUER WIDERSTAND >>>>>. 
. . CODFARBE” PRINT 
388 PRINT "2 FUER CODFARBE.. 
32323 De00.,. WIDERSTAND" 
PRINT 


598 PRINT "= ERRECHNEN VON $S 
PANNUNG" =: PRINT 

689 PRINT "4 ERRECHNEN VCGN $S 
TROM" 2: PRINT 

619 PRINT "5 ERRECHNEN VON U 
IDERSTAND" ;: PRINT 

628 PRINT "& PROGRAMMENDE*" : 
: PFINT 
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638 INPUT "IHRE WAHL? "iA : 
: IF As="1" THEN 1118 :: IF 
At="6" THEN 950 IF A$s="0" 
THEN ?79@4 

648 IF A$="2" THEN 968 
A&="5" THEN 749 


:: IF 
IF As=tq 
" THEN 65@ :: IF As="2" THEN 
85@ :: IF A$>"6" THEN 520 
658 CALL CLEAR PRINT "ERR 
ECHNEN VON STROM" :2 PRINT : 
: PRINT 
668 INPUT 
vu 
678 INPUT 
“ER 
688 1=U/R 
©: PRINT 
PERE (A) " 
698 PRINT :: 
INPUT 
N":Ks$ 
788 IF Kt="J® 
K$="N" THEN 729 
718 MA=IKIO@E :: PRINT 
SIND":MA:"MILLT AMPERE® 
728 PRINT PRINT PRINT 
"TASTE DRUECKEN" 
738 CALL KEY(@,K,S):: 
THEN >36 5: GOTO 528 
748 CALL CLEAR :: PRINT 
RINT :: PRINT "ERRECHNEN 
N WIDERSTAND " FRINI 
RINT 
758 
768 
778 


788 


"SPANNUNG IN VOLT( 
"WIDERSTAND IN OHH 


.. 


s: PRINT :: PRINT 
"ES FLIESSEN": ITS "AM 
FRINT :: PRINT 
"UMRECHNEN IN mA 3/ 


THEN ?18 :: IF 


"DAS 


IF S=& 
.. ::ı F 
vo 
.; F 


INPUT "SPANNLINS 

INPUT "STROM (A) "SER 

R=C/ER :: FRINT FRINT 

PRINT "ES ZIND"ZR: "OHM" 
PRINT FRINT PRINT 

:: INPUT "UMRECHNEN OHM IN K 

ILO OHM JI/N”"SL$ 

798 IF L$="J" THEN 818 :: 

L$="N" THEN 829 

8998 ! 

818 KO=R/1998 :: FRINT 

SIND":KO: "KILO OHM” 


828 PRINT PRINT :: PRINT 
"EITTE EINE TASTE DRUECKEN" 
838 CALL KEYIG,K,SI:Y IF S=4 
THEN 83% GOTO 329 
849 ! 
858 CALL CLEAR 
RINT :: PRINT 
SPANNUNG" 3; 
868 INPLIT 
"eul ss 
ERE ":AM 
878 REM 
889 UI=WIXAM :: PRINT :: PRI 
NT PRINT "ES IST EINE SPA 
NNUNG VON"SUIS "VOLT" 


v) "IC 


IF 


"DAS 


PRINT :: P 
"ERRECHNEN VON 
PRINT ;: PRINT 
"WIDERSTAND IN OHM 
INPUT "STROM IN AMP 





899 PRINT :: PRINT :: INPUT 
"UMRECHNEN IN MV JI/N ":VB$ 
988 IF VB$="J" THEN 923 :: I 
F UB$="N" THEN 939 

918 REM 

928 MV=UIX19995 ©: PRINT :: P 
RINT :: PRINT "DAS SIND":MV: 
"MILLI VALT" 

938 PRINT :: PRINT :: PRINT 


"BITTE EINE TASTE DRUECKEN” 


948 CALL KEY(G,K,S):: IF S=8 
THEN 948 :: GOTO 528 

958 END 

968 CALL CLEAR :: PRINT "COD 

FAREE > WIDERSTANDSW." :: IN 

PUT "CODFARBEN: ":AX®& :: PRI 
NT :: PRINT :: PRINT "DIE DR 


ITTE RINGFARBE SIND NULLEN" 


978 IF AN$S="SCHWARZ" THEN 18 
89 2: IF AX$="BRAUN" THEN 18 
?& s: IF AX$="ROT" THEN 
1868 :: IF AX$="ORANGE" THEN 
ads: IF AX$="GELB" THEN 
1949 
988 IF AX$&="GRUEN" THEN 1903@ 
ıs IF AX$="RBLAU" THEN 19828 
3 IF AX$="VIOLETT" THEN 191 
9 2: IF AxX$="GRAU" THEN 1999 
ı: IF AX$="WEISS" THEN 999 
998 PRINT "9" :: GOTO 1494 
1898 PRINT "8" :: GOTO 1998 
1818 PRINT "7?" :: 50T0O 199% 
1828 PRINT "6" :: GOTO 1998 
1839 PRINT "5" :: GOTO 1994 
1848 FRINT "4" :: 50OTO 1999 
1958 PRINT "3" :: GSOTO 1998 
1869 PRINT "2" :: GOTO 1998 
1878 PRINT "1" :: GOTO 1999 
1888 PRINT "8" :: GOTN 1998 
1898 FRINT :: PRINT :: IHPUT 
"NOCHMAL ? ":KL$ 


1188 IF KL$="J" THEN 989 :: 
IF KL$<{>"J" THEN 524 
111@ CALL CLEAR :: PRINT 
DERSTANDSW. YCODFARBE" 
NT PRINT 
1128 PRINT :: PRINT "DER DRI 
TTE RINGWERT IST DIE ANZAHL. 
DER NMULLEN" :: PRINT PRIN 
7 
1138 PRINT :: PRINT 
E DES RINGWERTES" 
5$ 
1148 IF AS$="8" THEN 1259 ©: 
IF Asg="1" THEN 1248 :s: IF 
AS$="2" THEN 1239 :: IF AS$= 
"3" THEN 1228 :: IF ASe="4" 
THEN 1210 IF AS$="5" THEN 
1208 
1158 IF AS$="6" 
IF ASg="?7" 


"wi 
PRI 


" EINGAB 
INPUT A 


.e 


IF 


THEN 1199 
THEN 1188 
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AS$="8" THEN 117@ :: IF AS$= 
"9" THEN 1164 

1168 PRINT "WEISS" 

117@ PRINT "GRAU" :: 6010 12 

Ag 

1189 PRINT "WIOlErI" 22 5010 
1268 

1198 PRINT "BLAU" :: G0T0 12 

58 

1288 FRINT "SRUEN" :: G0TO 1 

260 

1218 PRINT "GELB" :: G0TO 12 

62 

1228 FRINT "ORANGE" :: GOTO 
1268 

1238 PRINT "ROT" :: 6010 126 

o 

1248 FRINT "BRAUN" :: GOTO 1 

238 

1259 PRINT "SCHW." 2: G0TO 1 

26% 

1268 PRINT :: PRINT :: INPUT 
"NOCHEINMAL ? ":ENs 

127@ IF BN$="J" THEN 1119 :: 
IF BNSCH"J" THEN 529 

2088 Call. CLEAR :: PRINT "ER 


RECHNEN DES ERSATZWIDER - ST 
ANDES VUN PARALELI.SCHALT- UN 
GEN" :: PRINT PRINT 
20818 INFUT "WIEVIELE WIDERST 
AENDE SIND. .PARALELL? (2,3,4 
3) "CHILE PRINT :: PRINT 
20828 IF KL$="2" THEN 2659 
IF KL$="3" THEN 2978 
Kl.$="4" THEN 2148 
"Sg" THEN 2200 
THEN 2018 :; 
22018 
2039 | 
29849 ! 
2958 INPUT "1.WERT 
PUT "2.WERT ":W 
20868 Z=(0XW) /(aHWI:: 
DER ERSATZWERT IST":2 
NT "OHM" 
: NEXT K 
2878 INPUT "WERT A. "ıV ıı 1 
NPUT "WERT 2. ":B INPUT " 
WERT 3. "IN 35 M=tl/V)#r(1rB) 
+1 Ni: LeiyM 
2886 PRINT "DER ERSATZWERT I 
ST ”:L 3: PRINT "GHM" PRI 
NT 2: PRINT :: PRINT "BITTE 
EINE TASTE DRUECKEN" 


.. 
.. 


ss IF 
:: IF KL$= 
IF KL$>"5" 
IF KL$<"2" THEN 


„:Q :: IN 
PRINT " 
PRI 
FOR K=1 TO 598 : 
GaTa 528 


.. 
.0. 


2099 CALL KEY{@,K,S):: IF S= 
@ THEN 2098 :: GOTO 528 
2188 INPUT "WERT 1. ":5 :: 1 
NPUT "WERT 2. ":Z :: INPUT * 
WERT 3. ":X :: INPUT "WERT 4 
. ":C 





2118 N=t1 SE) +11 /Z)+ (I /X) + (1/7 


C)zt L=i/N 
2128 PRINT 
ST "IL 
NT 2: 
EINE 


.. 
.r 


PRINT 
PRINT 
TASTE DRUCKEN” 


"DER ERSATZWERT 1 
"OHM" :: PRI 
PRINT "BITTE 


213@ CALL KEY(9,K,S) 
2148 IF S=& THEN 2138 


2159 
2160 '! 
2199 
2288 INPUT 
HPUT "WERT 
WEFT RS, 


u 20 
Er 


":K 3: INPUT 


GaTa 528 


"WERT 1. "36 25 1 
INFUT " 
"WERT 4 


"WERT 5. 


ss INPUT 


2218 U=(1/G) + (1 /H)+ 1/7 I) +17 


Kl+-tizıde: 
2228 PRINT 
ST ":A CE 

NT :: 
EINE 
2238 
2248 
2259 
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das Programm wesentlich 
kürzer ausgefallen. 

Trotzdem haben wir 
uns aus zwei Gründen zu 
einem Abdruck entschlos- 
sen! 

Zum ersten fällt es auf- 
grund der vielen TI-Basic- 
Befehle nicht mehr allzu 
schwer, das Programm 
komplett in TI-Basic um- 
zuschreiben und zum an- 


PRINT 
FRINT 
TASTE DRUCKEN' 
CALL KEY(B,K,S) 
IF S=4 THEN 2234 
GCTO 574 


Az u 


"DER ERSATZWERT 1 
"OHM" 3: FRI 
»: PRIMT "BITTE 


deren bietet das vorlie- 
gende Programm doch 
eine beachtliche Hilfestel- 
lung beim Errechnen der 
benötigten Werte. Die 


Formeln und Ergebnisse 
wurden von uns überprüft 
und können unbedenk- 
lich übernommen werden. 

Alle Angaben sind kor- 
rekt. 


H. König 
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REMRRKRRKKRRKRRRKTRRRRK 


il REM+ * 
12 REM SPACE INVADERS * 
13 REM Copyright by * 


REM Sascha Dierkes * 

REM* * 

REM#Benoetigte Geraete* 

REMX T199/4A Konsole * 

REM* * 

REM Speicherbelegung * 

REM 5139 Bytes %* 

REMERFKRKKRRRRRKRKRRRRRT 

REM 

180 RANDOMIZE 

190 RESTORE 

200 CALL CLEAR 

210 PRINT "%*SPACE INVADERS*" 

» » "SCHIESSEN SIE SO VIELE.. 
»...BOMBEN WIE MOEGLICH AB.. 
»...DESTO EHER SIE DIESE" 

220 PRINT "TREFFEN DESTO M 

EHR. 2.2... PUNKTE GIBT ES.": 
:"BERUEHREN DIE BOMBEN JEDO 

CH DEN BODEN HABEN SIE EINE. 
». STATION VERLOREN" 

230 PRINT "UNTEN WERDEN DIE 

ANZAHL DER RESTLICHEN STATIO 

NEN SOWIE. . IHRE PUNKTE UND A 

NGRIFFS-...WELLE DER INV."j 

240 PRINT " ANGEZEIGT." 

250 CALL KEY(0,K,S) 

260 IF S=0 THEN 250 

270 CALL CLEAR 

280 PRINT "JOYSTICK VERSION" 


INPUT "ANZAHL DER ANGREI 


290 
FER PRO W. (2-10) "ANZ 
300 IF (ANZ<Z) +(ANZY>1O) + (ANZ 


<>INT(ANZI)THEN 290 

310 CALL CLEAR 

320 FOR I=3 TO 4 

330 CALL COLOR(I1,4,2) 

340 NEXT I 

350 FOR I=10 TO 13 

360 CALL COLOR(1,1,1) 

370 NEXT I 

380 CALL COLOR(2,1,1) 

390 FOR I=1 TO 50 

400 ZE=INT(RND#9) +1 

410 SP=INT(RND*30) +1 

420 CALL HCHAR(ZE,SP,46,1) 
430 NEXT I 

440 CALL CHAR (124, "0103070F1 
F3F?FFF") 

450 CALL CHAR (125, "8OCOEOFOF 
SFCFEFF") 

460 CALL CHAR(111, "182442818 
1422918") 

470 CALL CHAR (118, "181818303 
C3C7E7E") 

480 CALL CHAR (119, "7E7E?FE7E? 


E?EFEFF") 


490 CALL CHAR (126, "FFFEFCFBF 
OEOCOSO") 


500 CALL CHAR (123, "FF?F3FAFO 
F0?0301") 

510 CALL CHAR (122, "FFFFFFFFF 
FFFFFFF*) 

520 FOR I=1 TO 22 

530 READ ZE,SP,CH,WH 

540 CALL HCHAR(ZE,SP,CH,WH) 
550 NEXT I 

540 DATA 1,13,111,1,1,16, 111 
‚1,2,13,118,1,2,16,118,1,3,1 
1,124,1,3,13,119,1,3,16,119, 
1,3,18,125,1 

570 DATA 4,12,122,6 

580 DATA 5,12,126,1,5,14,123 
‚1,5,15,126,1,5,17,123,1,6,1 
2,125,1,6,14,124,1,6,15,125, 
1,6,17,124,1 

590 DATA 7,12,122,6 

600 DATA 8,11,123,1,8,14,123 
‚1,8,15,126,1,8,18,126,1 

610 XSCH=11 

620 SPIEL=O 

630 RSCH=5 

640 POSi1=15 

650 CALL SCREEN (2) 

680 CALL COLOR(2,12,2) 

670 CALL CHAR (100, "183C7EFFF 
FOOOOFF") 

680 CALL CHAR(128, "001818181 
8181800") 

690 CALL CHAR(129, "181818181 
S187EFF") 

700 CALL CHAR (136, "818142303 
c3c3C 18") 

710 CALL CHAR (137, "2424AS57E5 
ASA?7E99") 

720 CALL COLOR(13,12,2) 

730 CALL COLOR(14,11,2) 

740 CALL COLOR(9,14,2) 

750 CALL COLOR(10,10,2) 

760 CALL COLOR(11,7,2) 

770 CALL COLOR(12,6,2) 

780 CALL HCHAR (21,1,100,30) 
790 CALL HCHAR (20,P08S1,129) 
800 CALL HCHAR (22,5,RSCH+48) 
810 FOR SCH=9 TO 1 STEP -1 
820 CALL HCHAR (22, 27,5CH+48) 
830 SPIEL=SPIEL+1 

840 HPOS=XSCH 

830 HPOS2=INT (RND# (ZXSCH+XSC 
H-4)) +1 

860 CALL HCHAR(HPOS-1,HPOS2, 
137) 

870 CALL HCHAR (HPOS,HPOS2, 13 
6) 

880 HPOS=HPOS+1 

890 IF HPOS=20 THEN 1460 


900 FOR I=1 TO SCH 

910 CALL KEY(1,K,S) 

920 CALL JOYST(1,X,Y) 

930 IF (S=0)%1(X=0)THEN 970 
940 GOTO 1200 

950 CALL HCHAR (20,P0$1,129) 
960 CALL SOUND (-50,440,5) 
970 NEXT I 

980 CALL HCHAR(HPOS-1,HPOS2, 
127) 

990 GOTO 870 

1000 IF SPIEL/ANZ{>INT(SPIEL 
/ANZ)ITHEN 830 

1010 NEXT SCH 

1020 RSCH=RSCH+XSCH-10 

1030 IF RSCH<10 THEN 1050 
1040 RSCH=9 

1050 XSCH=XSCH+1 

1060 CALL HCHAR (22,5,RSCH+48 
) 

1070 PUNKT=PUNKT+100%XSCH 
1080 CALL SOUND (300,524,1) 
1090 CALL SOUND (300,588, 1) 
1100 CALL SOUND (600, 660,1) 
1110 PUNKT=PUNKT+100%XSCH 
1120 CALL SOUND (225,698,3,88 
4,1) 

1130 CALL SOUND (75,784,1) 
1140 CALL SOUND(150,880,1) 
1150 CALL SOUND(150,988,2,78 
2,0) 

1160 CALL SOUND(300,1046,5,7 
82,4,658,0) 

1170 IF XSCH>16 THEN 1690 
1180 CALL COLOR(14,XSCH,2) 
1190 G0T0 810 

1200 IF xX<)-4 THEN 1250 

1210 IF POS1I-1<1 THEN 1240 
1220 CALL HCHAR (20, P0S1,127) 
1230 POS1=POS1-1 

1240 G60T0 950 

1250 IF x<>4 THEN 1300 

1260 IF POS1+1>30 THEN 1290 
1270 CALL HCHAR (20,P0S1,127) 
1280 POS1=POS1+1 

1290 GOTO 950 

1300 IF K<>18 THEN 970 

1310 FOR J=19 TO HPOS STEP - 
1 

1320 CALL HCHAR(J,P0S1,128) 
1330 NEXT J 

1340 IF HPOS2<>POSi THEN 143 
f) 

1350 CALL 3GUND{-200,1200,0) 
1360 PUNKT=PUNKT+(21-HPOS)%*( 
11-SCH) 

1370 HILF$=STR$ (PUNKT) 

1380 FOR J=1 TO LEN(HILFS$) 
1390 CALL HCHAR (22, 15+J,ASCt 
SEG$(HILF$,J,1))) 

1400 NEXT J 


1410 CALL VCHAR(10,P0S1,127, 
10) 

1420 GOTO 1000 

1430 CALL VCHAR(HPOS,POS1,12 
7,20-HPOS) 

1440 CALL SOUND(-200,-2,0) 
1450 60T0 950 

1460 RSCH=RSCH-1 

1470 CALL SCREEN (10) 

1480 CALL SOUND(-1000,-6,0) 
1490 CALL HCHAR(10,1,127,352 
) 

1500 CALL SCREEN (2) 

1510 IF RSCH<O THEN 1550 
1520 CALL HCHAR (22,5, RSCH+48 
) 

1530 CALL HCHAR (20, P0S1,129) 
1540 GOTO 1000 

1550 CALL CLEAR 

1560 FOR I=5 TO 8 

1570 CALL COLOR(1,16,2) 

1580 NEXT I 

1590 PRINT "SIE HABEN LEIDER 
VERLOREN": "ABER PROBIEREN S 
IE ES DOCH RUHIG NOCH EINMA 
E,* 

1600 PRINT "SIE HATTEN "5PUN 

KT}" PUNKTE": "UND HATTEN SCH 
WIERIGKEITS- GRAD :"}SCH 
1610 PRINT "IN STUFE: "}XSCH- 
11 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 


PRINT "NOCHMAL?" 
CALL KEY(0,K,S) 

IF S=0 THEN 1630 
IF K£>74 THEN 1670 
GOTO 100 

IF K<>78 THEN 1630 
END 

CALL CLEAR 

FOR I=1 TO 14 

CALL COLOR(1,2,16) 
NEXT I 

CALL SCREEN (16) 
PRINT "BRAVO!!": 
LUTE SPITZENKLASSE" 
1750 PRINT "PUNKTE: ";PUNKT: " 
SIE HABEN ES BIS ZUM LETZTEN 
SCHWIERIGKEITSGRAD DURCHGE- 


ı "ABSO 


HALTEN!" 
1760 PRINT "NOCHMAL?" 
1770 CALL KEY(0,K,S) 


1780 
1790 


IF S=0 THEN 1770 
IF K=?4 THEN 100 
1800 IF K<>78 THEN 1770 
1810 END 


Die nächste 


TI REVUE erscheint 
am 28. Oktober 
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IV KRRKKIKRKÄRERKRIR RI IN 
ES BE Bu % 
12 ! % ROUTINE ZUM AUS- * 
131% DRÜCKEN VON * 
14 ! X DFUE-PROTOKCGLLEN * 
151% Copyright by * 
16 !' x* Dieter Orth * 
171% % 
19 ! % Benoetigte Geraete X 
2B ' * TI9P9F/4A Konsole * 
21 ' x E.t. Basic * 
22 ! % Termıinal-Emulator i 
231% sder * 
24 ' XTE II und Disk-Drive! 
25 ' 3% Drucker * 
26 !' * Speicherbelegunzs * 
27 X Z7S4 Eytes # 
28! % * 
ZIP U KKREURKKKHKKRKNNHRRURN 
188 CALL CLEAR :: CALL SCREE 
N{2) 


118 DISPLAY AT(I,KDI:RRRHERK 

BHRHRRRSRHRBRBRBRGRBRE" I: D 
ISPLAY AT(2,1):"%" DISPLA 
YATI2,28) ix" 

128 DISPLAY ATI, 1): "Hoc... 
‚LESEPROGRAMM. 2 2.2...%" 3: DI 
SPLAY AT(4, 1): %" DISPLAY 
AT(4,28):"%" 

138 DISPLAY AT(S,1):"%...FUE 
R DFUE-TEXTE VON....%*" :: DI 
SPLAY AT(6,1):"%" :: DISPLAY 
AT(6,28):"%" 

148 DISPLAY AT(? 1ER. 2... 
„’DISKETTEN’.oae2...c$" 2: DI 
SPLAY AT(B, 1): "x" DISPLAY 
AT(B,28):"%" 

158 DISPLAY AT(9, IE" Hıcaan. 


«IM FORMAT...o.020.%" 2: DI 
SPLAY AT(18,1):"%" :: DISPLA 
YATI(198,28):"%" :: DISPLAY A 


Tt11,1)2"% DISPLAY/VARIABLE 
89/128 x" DISPLAY AT(A11, 
Z8):"%" 

168 DISPLAY AT(12,1):"%" 


DISPLAY AT(12,28):"%" ;: DIS 
PLAY AT(13,1):"%" 2: DISPLAY 
AT(13,28):”%” ©: DISPLAY AT 


114,1):"%" 
Z8):”%" 
178 DISPLAY AT(15,1):"’%..... 


DISPLAY AT(14, 


»««VERSION 1.2 „uer.c*" 95 D 
ISPLAY AT(16,1):"%#" :: DISPL 
AY AT(1I6,28):"%" :: DISPLAY 


ATOID LIVE RRRKKKKRRKKKNTNKRR 
KRERKKKKKHRK" 

188 CALL SCREEN (4) 
TO 758 NEXT I 


FOR I=1 





190 rar EEE TEE 
288 ! ROUTINE ZUM AUSDRUCKEN 
DER DFUE-PROTOKOLLE 
VON DISKETTEN 
218 ! LITERATUR: 
TI REVUE 2/84,5.44 
228 ! CR BY DIETER ORTH 
HARTGERSTR. 12 
33 BRAUNSCHWEIG 
238 !----n-1nnn nn nn nn nn 


248 CALL CLEAR :: DISPLAY AT 
(2,4): "<GERAETE. DATEINAMEN?" 
258 ! 
268 DISPLAY AT(4,4):;"==e=)" ; 
: ACCEPT AT(4,8)SIZE(LS)VALI 
DATE (UALPHA,DIGIT,"./-_"):FI 
LE# :: IF FILES="" THEN 26% 
279 ! 
288 DISPLAY AT(7,4):"<TERMIN 
AL-EMULATOR>" DISPLAY AT( 


428 DISPLAY AT(21,4): "DRUCKE 
RNAME:*" :: ACCEPT AT(22,4)$SI 
ZE (28) VALIDATE(UALPHA,DIGIT, 
"„m,"):P$ :: IF P$="" THEN 4 
2a 
438 OPEN #2:P$,OUTPUT,DISPLA 
Y 

4a ! 
458 LINPUT #1:A$ 

468 IF EOF(L)THEN 578 

478 PRINT #2:A$ 

488 San 459 

499 !---- nun nnnnnnnnn 


528 CALL CLEAR :: DISPLAY AT 
(21,1)2"BITTE DIE SPACE - TA 
STE. ....BENUTZEN!" FOR I= 
1 TO 758 :: NEXT I CALL C 
LEAR 

518 LINPUT #1:As$ 

528 IF EOF(1)THEN 579 

538 PRINT A$ :: FOR 1=8 TO i 
548 CALL KEY(A,K,S):: IF S=d 


298 DISPLAY AT(9,4):"TE II THEN 548 :: IF K=32 THEN 55 
<i>" 3: DISPLAY AT(19,17): .: G0T0 548 

"3 <= 22 DISPLAY AT(11,4):"T 

E 1200 =<2>" 2: ACCEPT AT(Iia 399 NEXT I :: G0TO 519 
„LBISIZEILIVALIDATE("IZ I TE ID Innen 

388 IF T$="" THEN 298 :: IF MENULE 

T6="i" THEN 328 :: IF Teig 0 020£—D [TTmTmıtmenaeananannnnnnn 


578 DISPLAY AT(24,3): "WEITER 
...J/N > <" ACCEPT AT(24, 
IÄ8)SIZEII)VALIDATE("IN"):SSS 


THEN 339 ELSE 298 
318 DISPLAY AT(24,1):FILES 
328 OPEN #1:FILE$,INPUT ‚DIS 


P VARIABLE 88 :: G0oTO 34 :: IF S$="" THEN 578 :; IF S 
ae j $="J* THEN RUN 248 :: IF S$= 
"N" THEN 589 
OPEN #1:FILE$, INPUT ‚DIS 
et "VARTANLE 128 ; 588 RUN "DSK1.LOAD" :: REM-- 
348 DISPLAY AT(14,4):"DRUCKE an "DSK1.MENUE" 


R J/ND> <<" 5 


ACCEPT AT(14, 


IS) SIZEIL)VALIDATE("IN ")ıc# 
338 IF C$="" THEN 348 :: IF 
C$="J" THEN 388 :: IF Cg='N" 
THEN 599 
368 DISPLAY AT(24,1):FILES$ : 
> ea Mehr Geld verdienen ... 


Wenn Sie den Wunsch zu selbständiger 
Arbeit haben und gut verdienen wollen — 


HIER IST DIE LÖSUNG: 


388 DISPLAY AT(17,4):"RS232. 
nt)" DISPLAY AT(18,17) 
ne Ze 5 DISPLAY AT(19,4):" 
SELEKTIV <2>" :: ACCEPT AT(I 
8,18)SIZEt1)VALIDATE("12"):D 
s 


Werden Sie Partner von Michael Meister, 


.. EDV-Marketing 
Rheinstr.47,7500Karlsruhe 21, Auftrags- 


dienst Frau Staack, Tel. 07 21/55 4601 





Keine Broschüren, keine Konzepte — sondern a Ehan: 
cen — geringes Startkapital erforderlich, ab DM 





3998 IF Ds="" THEN 388 :: IF ereltgehenn Tissase und kaufmännische Kanniniaee von 

D$="1" THEN 498 :: IF D$="2" Ä\) einen V.Scheck von DM 5. bei! (Senutzgebunn 
THEN 428 

488 OPEN #2: "RS232.BA=9699.D 

A=8.PA=E" ,OUTPUT,DISPLAY :: 

GOTO 459 

418 !---------- 22-222 





NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


| 
DAS 
MAGAZIN 


ai 
TI 99/4A 
lade 


137,03 


GARANTIE! 





WICHTIGE RECHTLICHE 


Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 
der Abo-Bestätigung durch den 


KOMMT REGELMÄSSIG 
ZU IHNEN 
INS HAUS 


Finden Sie Ihre TI REVUE nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder Euer” 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 30 DM liefern wir Euch per Post sechs 
Hefte ins Haus (Ausland 40 DM). Einfach den 
Bestellschein auf der nächsten Seite ausschneiden 
— fotokopieren oder abschreiben, in einen Brief- 
umschlag und ab per Post (Achtung: Porto nicht 
vergessen). TI REVUE kommt dann pünktlich 
ins Haus. 


Verlag widerrufen— Postkarte ge- 
nügt. Ansonsten läuft dieser Auf- 
trag jeweils für sechs Ausgaben, 
wenn ihm nicht vier Wochen 
vor Ablauf widersprochen wird, 
weiter. 


DAS SUPER-SONDER- 


ANGEBOT: 
PRIVATE 


KLEINANZEIGEN 


KOSTENLOS! 


Das bietet Ihnen ab sofort die TI-Revue: KLEIN- 
ANZEIGEN SIND KOSTENLOS FÜR PRIVATAN- 
BIETER! Suchen Sie etwas, haben Sie etwas zu ver- 
kaufen, zu tauschen, wollen Sie einen Club gründen? 
Coupon ausfüllen, auf Postkarte kleben oder in Brief- 
umschlag stecken und abschicken. So einfach geht 
das. Wollen Sie das Heft nicht zerschneiden, können 
Sie den Coupon auch fotokopieren. Oder einfach den 
Anzeigentext uns so schicken, auf Postkarte oder im 
Brief. Aber bitte mit Druckbuchstaben oder in 
Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und/oder Tele- 
fonnummer sollten acht Zeilen 4 28 Anschläge nicht 
überschritten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater In- 
serenten, keine gewerblichen Anzeigen. Die kosten 
pro Millimeter DM 2,50 plus Mehrwertsteuer! 
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Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

Chiffre-Anzeigen sind nicht gestattet! Wir behalten 
uns vor, Anzeigen, die gegen rechtliche, sittliche oder 
sonstige Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, 
kein Rechtsanspruch auf den Abdruck in der nächsten 
Ausgabe! 

Die Insertion ist nicht vom Kauf des Heftes ab- 
hängig! 

Wir behalten uns vor, Anzeigen, die nicht zum The- 
menkreis des Heftes -— Computer — gehören, nicht ab- 
zudrucken oder sie nur insoweit zu berücksichtigen, 
wie es der Umfang des kostenlosen Anzeitenteils zu- 
läßt. 





PORT TE 
er a a 
ON :-7 S0825 
=>® 35 oz...» I 
roo<::: Eyyrs 
39cC 1; iii) KASSETTEN 
>,» M35:3 S® EN: 
oOo_nG 733 2g3>»3 | 
8 :° 2:33> [IR | seiostverständtich gibt es in diesem Heft wieder 
= F $ > 3335% mm | einen Kassetten-Service. Dabei können wir Ihnen 
o E58 35578 j allerdings die Qual der Wahl nicht ersparen. 
2: > In 5 ie) | Denn: In Ihrem Interesse haben wir dieses Spe- 
85: a3 . ga cial sozusagen „geviertelt“. 
38 er Mm Viertel 1: Alle Utilities und Anwender-Program- 
283 s232°5 ! me in TI Basic 
ss ux<2z 2383 2 »53 2 2 j Viertel 2: Alle Spiele in TI Basic 
r 388 „r »37,€ Viertel 3: Alle Utilities/Anwenderprogramme in 
3 s } | 
Ei? 238 z3 055 (@JD) | Extended Basic 
2 ® a5 Pr | Viertel 4: Alle Spiele in Extended Basic. 
’ we 57425 Mm I Und weil es uns Spaß macht, haben wir noch ein 
»>5 :i23 5 | fünftes Viertel angehängt: den Disketten-Service. 
5% s5fz 8 n Da sind dann allerdings alle Programme drauf. 
>2®32 =2.%5» ı Und nun zu den harten, nackten Geschäftsbe- 
895 2 5 E35 -—_ | dingungen. 
=, ars: mu | Sie können zahlen: 
se; s223$ Bankabbuch Versandta 
"53 AR: Be —_ nn .. = a 
®%. 25205 egen Vorausrechnung, wobei am Tag des Geld- 
3 se3: g | einganges der Versand erfolgt: 
<” ZEsEn Mm Sie können kombinieren: 
3 873 SE | Jedwedes Programmpaket miteinander — etwa 
53 3335 ii ı 1 +4 oder 1,2,3 oder nur 4 und so weiter. 
ABO SERVICE-KARTE 
>E----------------------------- 


Ich nehme zur Kenntnis, 
daß die Belieferung 

erst beginnt, wenn die Abo- 
Gebühr dem Verlag 
zugegangen ist. 


TI REVUE 


Abo-Service SP2 
Postfach 1107 
8044 UNTERSCHLEISSHEIM 


Coupon Bitte senden Sie mir bis auf Wider- 

ruf ab sofort jeweils die nächsten 
Ja, ich möchte von Ihrem Angebot sechs Ausgaben an untenstehende 
Gebrauch machen. Anschrift. 


Name 

Vorname 

Straße/Hausnr. 

Piz/Ort 

Ich bezahle: 

Ol per beiliegendem Verrechnungsscheck 
Ol gegen Rechnung 

Ol bargeldios per Bankeinzug von meinem Konto 
bei (Bank) und Ort 

Kontonummer 

Bankleitzahl 

(steht auf jedem Kontoauszug) 
Unterschrift 


Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 
Unterschrift 
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SERVICE 


Das sind die Preise: Pro einzelnes Programm- 
Paket DM 20,— 

Für zwei Programmpakete DM 35,— (5,— DM 
Ersparnis) 

Für drei Programmpakete DM 50,— (10,— DM 
Ersparnis) 

Für alle vier Programmpakete DM 60,— (20,— DM 
Ersparnis) 

(Jedes Programmpaket auf Kassette!) 

Für die komplette Diskette — alle vier Programm- 
Pakete — DM 75,— (hier ist keine Zusammenstel- 
lung möglich!) 


Die Inhalte der einzelnen Programm-Pakete 
ersehen Sie aus nachfolgender Übersicht, die 
Komplett-Diskette enthält alle vier Programm- 
Pakete! 


ACHTUNG: KEIN GELD EINSENDEN! NUR 
DEN BERECHTIGUNGSCOUPON! WIR MEL- 
DEN UNS, WENN DIE WARE VERSAND- 
BEREIT ISTIIN SELBSTVERSTÄNDLICH 
VOLLES UMTAUSCHRECHT BEI NICHT- 
FUNKTIONIEREN. 


Programm-Paket 1: 

Alle Spiele in TI-Basic 

wie Erdbeer-Paul, Apfelfänger, Seeschlacht, 
Space Invaders, Castle of Dom, Catch with Car, 
Sky-Driver, TI-Mühle, Irvel. 


Programmpaket 2: 

Alle Spiele in Ext.-Basic 

wie Space 2000, Tore schießen, TI-Fall, Spick- 
zettel, Adventage, Ecarte, Boogabo. 


Programmpaket 3: 

Alle Anwenderprogramme, Utilities usw. in 
Basic 

wie Dreiecks- und Kreisberechnung, Komposi- 
tionen, Dissassembler, Copyright-Zeichen. 


Programmpaket 4: 

Alle Anwenderprogramme, Utilities usw. in Ext. 
Basic wie Hexdump, Supergrafik, Toch Typing, 
Sprite-Set DFÜ, Tabellen-Erstellung, Steuerbe- 
rechnung, Prognose, Karnoug Veitch, Reset, 
3x3-Matrix, Softplot oder Pokelisten. 


ACHTUNG! Wir weisen ausdrücklich darauf hin, 
daß das Spiel „Irvel”’ wegen Überlänge nur in der 
Ursprungsversion des Autors kopiert wurde. 
Eventuell müssen Sie daher dieses Programm 
gemäß unserem Listing überprüfen. 





PROGRAMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen 


Programmsammlung 1 ( ) 
Programmsammlung 3 ( ) 
die Komplett-Diskette ( ) 
Zutreffendes bitte ankreuzen! 


Ich zahle: 


Programmsammlung 2 ( 
Programmsammlung 4 ( 


) 
) 


Gegen Vorausrechnung ( ) — Versand am Tag des Geldeinganges 


Gegen Bankabbuchung am Versandtag ( ) 


Meine: Bank [mit Ortsname) „uuun une aan aa ann a a a ana nn ar anne 
Meine Kontonummer ........csseeesene nen enen nennen nn nn 

Meine Bankleitzahl .........cc2eccce000. (steht auf jedem Bankauszug) 

Vornamen en Nachname .......s00.05 0 rear 
St Neuss inarnuaakeuen sine A 


Hiermit bestätigen ich mit meiner Unterschrift, Ihre Verkaufsbedingungen 


gelesen zu haben und zu akzeptieren. 


Unterschrift... . «oo ooo nennen onen nenne 


Bitte ausschneiden und einsenden an 
TI-SPECIAL 2 
KASSETTENSERVICE 
Postfach 1107 
8044 Unterschleißheim 








Nr. 9/10 Sept /Okt - R980°  B20131F 





GEWINNEN 
SEN 
Busse | COM PUITER 


ze DAS AKTUELLE 
ac COMPUTER- 
or MAGAZIN 


16 Drucker von 


Ale über Te 
annesmann 
Comdata, DAS BLATT, 


Star, | DAS KEINS 





spe VOR DEN 
u ‚ 
Hanepue MUND NIMMT 





Microscan und 


2 FEN JETZTAN 
SICHT: IHREM KIOSK 


Alle Drucker 
Printer/ Plotter 


bis Typenrad 


US N RRKRKKNKKRNKTKKKKKNTHTTNT 
11 * 
ı2ı %* KARNGUGH-VEITCH * 
13: * DIAGRAMM + 
ia! %* Copyright by * 
151% x 
16 ! * Bernard Schmidt #* 
17% * 
19 ı * Benoetigte Geraete * 
29 ı * TI99/AA Konsole * 
zı !ı * Ext. Basic * 
221 * * 
26 ! * S5Speicherbelegung * 
27 * 117982 Bytes * 
28 ! # * 
DIE KKRKKRKKKKRRKKRKKKKKKKRRTRKR 
39 ! 


268 CALL CLEAR 

278 DIM C(168),R$(62) 

288 ! 

298 ! ZEICHENDEFINITIONEN 
308 DATA "7C9KW038447C4444", 
"7C980037824382478" , "7CO0093C 
48434930" ,"7CQ49997824242478" 
318 DATA "B1G191231G10810191", 
"GOASAGASASGSGAHFF", "BLFLa1SI 
Q1O1BıLFF*", "FFOIGEIERTADGHAIDE" 
,"3ISASGEIHEIZIUEI" 


328 RESTORE 388 :: FOR I=1 T 
04 :: READ AS :: CALL CHAR( 
186+1,A$):: NEXT I 

338 RESTORE 318 :: FOR I=1 T 
05 :: READ A® :: CALL CHAR( 
32+1,A8):: NEXT I 

348 ! 

358 !DATEN FUER WAHRHEITSTAB 
ELLE 

368 !FUER 8 


378 DATA 5,5,5, 7,5, 9,5, 11,6, 
5,6,7,6,9,7,5,7,7,7?,11,8,5,8 
7,9,5,9,9, 9,11 

388 DATA i9,5,19,9,11,5,11,1 
1,12,5,13,7,13,9,13,11,14,7?, 
14,9,15,7,15,11,16,7,17,9,17 
„ii 

398 DATA 18,9,19,11 

488 'FUER 1 

a1 DATA 64,11,7,9,8,9,8, 11,9 
,7,18,7,18,11,11,7,11,9,12,7 
„12,9,12,11,13,5,19,5, 14,11 
428 DATA 15,5,15,9,168,5,16,9 
‚16,11,17,5,17,7,18,5,18,7, 1 
8,11,19,5,19,7,19,9,22,5,28, 
7,28,9,29, 11 

438 ! 

448 !ERGEBNISDATEN 

458 DATA 9,1,f,d,b,e,c,a,h,3 
‚ef,ed,eb,eh,fc,cd,bce,ch,af, 
ad,ab,ah, f9,9d,b9, 3h,.eg 

468 DATA ec,ac,ag, fh, fd,bd,b 
h,efg,egd,ebg,efc,ecd,ebc, af 
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c,acd,abc,a#9,39d,ab9,egh 


478 DATA ech,ach,agh,efh,efd 
‚ebd,ebh,fch, fced,bced,beh,afh 
‚afd,abd,abh,fgh, f9d,bgd,bgh 


488 DATA etfgh,efgd,efch,efcd 
‚ebgh,ebgd,ebch, ebced, atgh, af 
gd,afch,afcd,abgyh, abgd,abch, 
abced 

498 'DARSTELLUNG WAHRHEITSTA 
BELLE 

5898 A$="WAHRHEITSTABELLE" :; 
FOR I=1 TO 16 :: CALL HCHAR 
(1,2+1,ASC(SEGS(AS,I,1))):: 
NEXT I 

518 FOR I=4 TO 12 STEP 2 
CALL HCHAR (4,1,35):: CALIL HC 
HAR(3,1,33):: NEXT I 

528 FOR 1I=3 TO 13 STEP 2 

CALL HCHAR(4,1,34):: 


NEXT I 


538 FOR I=4 TO 12 STEP 2 :; 
FOR J=5 TO 28 :: CALL HCHAR ( 
J,1,33)2:2 NEXT J :: NEXT I 
548 FOR I=1 TO 4 :: J=2%1+3 


CALL HCHAR (3,J,96+1):: 
xT 1 

558 CALL HCHAR (3,13,65) 
568 FOR I=i1 TO 19 CALL HC 
HAR (4+1,3,497?+1):: MEXT I 

578 FOR I=1 TO 6 CALL. HCH 
AR(194+1,2,49):: CALL HCHAR (I 
4+1,3,97+1):5 NEXT I 

588 RESTORE 378 :: FOR I=1 T 
I 32 READ A,B :: CALL HCH 
AR(A,B,48):: NEXT 1 
598 RZESTORE 419 :: 
0 32 :: READ A,B :; 
AR(A,S,49):: NEXT I 
688 A$="KORREKTUR 
OR I=i1 TO 14 


NE 


s:s FOR I=1 T 
CALL HCH 


->K" :ı F 
CALL HCHAR (3 


‚17+1, ASC(SEGS(AS,I,II)):: N 
EXT I 
618 As="1=HISH" :: FOR I=1 T 


0 CALL HCHAR {6, 17+1,ASC 
(SEGS(A®,1,1))):: NEXT I 

628 As="g=LOW" FOR I=1 TO 
5 :: CALL HCHAR(8,17+1,ASCi 

SEGS(A$,1,1)) NEXT I 

638 A$="X=DON’T CARE" :: FOR 
I=1 TO 12 :: CALL HCHAR(19, 
1?+1,ASC(SEGSAS,I,1))):: NE 

xTı 

648 A$="BITTE A EINGEBEN :" 
:: FOR I=1 TO 18 ::5 CALL HCH 

AR(22,3+1,ASC(SEGS(A®,1,1))) 

NEXT I 


659 ! 
668 !'WERTE FUER A EINGEBEN 
678 FOR I=8 TO 15 


688 CALL KEYI@,K,S):: 
S THEN 48% 


IF S<= 
IF K=48 OR K=4 





9 OR K=88 THEN 698 ELSE IF K 

=75 THEN 789 ELSE 648% 

698 CALL HCHAR (5+1,13,K)!: 6 

OTO 719 

788 IF 1=8 THEN GOTO 688 ELS 

E I=1-1 GOTO 688 

718 NEXT I 

728 CALL HCHAR{22,3,32,19):: 
CALL HCHAR (3,17,32,15):: FO 

R I=i1 TO 5 STEF 2 CALL HC 

HAR(5+1,17,32,13):: NEXT I 

738 

748 !KV-DIAGRAMM ERSTELLEN 

759 A&S="KV-DIAGRAMM" :: FOR 

I=s1 TO 11 ©: CALL HCHAR (3,17? 

+1,ASCI(SEGE(AS,I,1))):: NEXT 
I 

768 CALL HCHAFR (7,29,34,4):5 

CAÄLL VCHAR(8,19,33,4):: CALL 
VCHAR (8,24,37,4 CAL.L HCH 

AR(12,28.36,49) 

778 CALL HCHAR (6,21,36,2):: 

CALL HCHAR (5,21,189):: CALL 

VCHAR (9,25,33,2):: CALL VCHA 

R(9,26,99) 

788 CALL VCHAR (18,18,37,2):: 
CALL VCHAR (18,17,9?):: CALL 
HCHAR (13,22,34,2):: CALL HC 

HAR (14,22,98) 

798 FOR 1=6 TO 15 :: CALL GC 

HAR{S+1,13,CtI)):: NEXT I 

888 CALL HCHAR(8,28,Ci9)):5 

CALL HCHAR (8,21,C(1)):5 CALL 
HCHAR (9,29,C(2)) CALL HCH 

AR(9,21,C1(3)) 

818 CALL HCHAR (8,23,C14)):: 

CALL HCHAR (8,22,C(5))5 5 CALL 
HCHAR (9,23,C(6)):: CALL HCH 

AR(9,22,C(7)) 

828 CALL HCHAR(11,28,C18)):: 
CALL HCHAR (11,21,C(9)):: CA 

LL HCHAR (18,298,Ct10)):: CALL 
HCHAR (18,21,Ct11)) 

838 CALL HCHAR (11,232,C(12)): 
» CALL HCHAR(11,22,C(13)):: 

CALL HCHAR (19,23,C(149)) CA 

LL HCHAR (18,22,C(15)) 

849 ! 

858 !AUSWERTUNG 

868 FOR I=8 TO i5 
I)-48 :: NEXT I 

878 RESTORE 458 

888 FOR 1I=8 TO 81 :: 
(I)ss NEXT I ERGS$= 

898 ! 

998 !'i6er BLOCK 

918 A=8 :: FOR 1=8 TO 15 :: 

AsA+C(]) NEXT I 

9298 IF A=6 THEN ERGS$S=RE(G)EL 

SE 939 :: GOTO 235% 

938 FOR I=8 TO 15 


ciI)=ct 


READ R$ 


IF C(D 
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=8 THEN 969 
948 NEXT 1 
0OT0 235€ 


9598 ! 


96B !Ser BLOCK 
978 IF CiM)>=1 AND C(1))=1 A 
ND Ct2)>=1 AND C(3))=1 AND C 
(18) >=1 AND Ctil)>=1 AND CI(& 
)>=1 AND C(9)>=1 THEN ERG$=E 
RGSERSE (Z)k"+" ELSE 958 
988 FOR I=& TO 2 FOR J=8 
TO 11 :: CID,CIN)=E NEXT 
J ss: NEXT I 
998 IF Ct1)>=1 AND C(5))=1 A 
ND C(32)3=1 AND C(7)>=1 AND C 
(11)>=1 AND C(15)>=1 AND C(9 
)>=1 AND C(13)>=1 THEN ERGE= 
ERGSERE(Z)K"+" ELSE 1918 
10888 Ct1),C(H,C(H),Ctı,cC1 
1),C(15),019),C(13)=8 
1818 IF C(5)>=1 AND C(7)Y=1 
AND C(15)>=1 AND C(13!>=1 AN 
D Ct4))3=1 AND Ci6)}=1 AND Ci 
14) >=1 AND C(12))>=1 THEN ERG 
S=ERGSERS(A)R"+" ELSE 1936 
1828 CiS),C(N,ClIS),Ct13),C 
(4) ,C1(6),0(14),C112)=8 
1838 IF Ci@)>=1 AND C(1))=1 
AND C(2)S=1 AND C(3)>=1 AND 
CIS)>=1 AND C(6)>=1 AND C(7) 
>=1 AND C(4)>=1 THEN ERG$=ER 
GSLRS(S)K"+" ELSE 1950 


ERGS=R&(1):: G 


18498 FÜR 1I=9 TO 3 :: FOR J=4 
TO 7 :s2 C(TD),C(J)=B :: NEXT 
J 2: NEXT I 


1858 IF C(2)>=1 AND C(3)>=1 
AND C(7))>=1 AND Ci&) >=1 AND 
Ct1@)>=1 AND Cli1}>=1 AND Ci 
15)>=1 AND C(14)>=1 THEN ERG 
$=ERGSERS(6)&"+" ELSE 1978 
1868 CI2),C13),CIM,Ci6),Ccti 
D),CHI1),CKIS),Cl14)=9 

1878 IF C(8)>=1 AND C(9))=1 
AND C(19)>=1 AND Cti1)>=1 AN 
D Ct12)>=1 AND C(13)>=1 AND 
Ci14)>=1 AND C(15)>=1 THEN E 
RGS=ERGSERS(T)R"+" ELSE 1998 
1888 FOR I=8 TO 15 Ci(T)=8 

ı: NEXT I 

1898 IF C(@)>=1 AND C(2))=1 
AND C(4)>=1 AND C(&)>=1 AND 
CiB)>=1 AND Ct1@)>=1 AND Ci 
2)>=1 AND C(14)>=1 THEN ERG$ 
SERGSERSISIK"+" ELSE 1119 
1188 FOR I=8 TO 14 STEP 2 
C(DI=9 :: NEXT I 

1118 IF C(@)>=1 AND C(l)>=1 
AND C(5)>=1 AND C(4)>=1 AND 
Ci@)>=1 AND C(9)>=1 AND C(13 
)>=1 AND C(12)}=1 THEN ERGE= 





ERGSERS(A)R" +" ELSE 1148 
11298 C(@),C(1),C(5),C(4),C(8 
I),Ct9,Ct13),Cl12)=8 

1139 | 

1148 !4er BLOCK 

1158 IF C(@)>=1 AND Cl) >=1 
AND C(2)>=1 AND C(3))=1 THEN 
ERGS=ERGSERS(ID)E" +" ELSE 1 


179 

1168 FOR 1=-8 TU 3 :: C(I)=Q 
s: NEXT I 

1178 IF Cti)>=1 AND C(3)>=1 


AND C(5)>=1 AND Ct?)>=1 THEN 
ERG$S=SERGSERS (11) &"+" ELSE 1 
198 

11868 FOR I=1 TO ?7 STEP 2 

c(ID=8 :: NEXT I 

1198 IF C(4)>=1 AND C(5)>=l 
AND C(#) >=1 AND C(?)>=1 THEN 


ERG$S=ERGS$S&ERS (12)&"+" ELSE 1 
218 
12898 FOR 1=4 TO 7 :: C(I)=9 


NEXT I 

1219 IF C(8)>=1 AND C(2)>=1 

AND C(4)>=1 AND C(5)>=1 THEN 
ERGS=SERGEARE(I13)K" +" ELSE 1 

238 

1228 FOR 1-9 TO & STEP 2 ::; 

cC(TD)=@ :: NEXT I 

1238 IF C(Z):=1 AND C(3)>= 

AND C{1@)>=1 AND C(i11)>=1 TH 

EN ERG$S=ERG$SERS$(1A)&"+" ELSE 
1258 

1248 CIi2),C(3),Cct19),Clil)=8 

1258 IF Ct3)>=1 AND C(?7)>=1 

AND Cti1)>=1 AND C(15)>=1 TH 

EN ERGS=ERGSER$ (15)&"+" ELSE 
1279 

12689 Ci3),C(?7),Ct1 1), Ct1I)=9 

1278 IF C(?)>=1 AND Ct(&a)>=1 

AND Ct15)>=1 AND C(14)>=1 TH 

EN ERG$=ERGSERS$(15)&"+" ELSE 
1298 

1288 C(7),Cl6),Ccl15),Ct14)=8 

1299 IF CtZ)>=1 AND C(19)>=1 
AND C(6)>=1 AND Cti4)>=1 TH 

EN ERG$SSERGSERS$(17)8"+" ELSE 
i31% 

1388 Ci2),Ct18),C(8),C(14)=6 
1318 IF CtS3)>=1 AND C(9)>=1 

AND Ct1@&)>=1 AND C(11)>=1 TH 


.s 
.. 


EN ERG$S=SERGEERS(ISIKE"+" ELSE 
1338 

1328 FOR 1I=8 TO 11 :: C(D=8 
»: NEXT I 


13398 IF C(9)>=1 AND Ctiil)>=l 
AND Ct13)>=1 AND C(15)>=1 T 
HEN ERG$S=ERGSRERSE(IY)A"+" ELS 
E 1358 

1348 FOR I=9 TO 15 STEP 2 
c(I)=8 NEXT I 
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13598 IF C(12)>=1 AND C(13))= 
41 AND C(14)>=1 AND C(15)>=1 
THEN ERG$=ERGSERS(2U)K"+" EL 
SE 1376 


1368 FOR I=12 TO 15 
NEXT I 


137@ IF C(8)>=1 AND C(19)>=1 
AND C(12)>=1 AND Ct14))=1 T 
HEN ERG$S=ERGSERS(ZU)R"+" ELS 
E 1399 
1388 FOR I=8 TO 14 STEP 2 :: 
CiDI=9 NEXT I 
1398 IF C(@)>=1 AND Cil)}= 
AND C(8)>=1 AND C(9)>=1 THEN 
ERG$=ERGSER$ (22)K"+" ELSE 1 
410 
1488 CI) ,Ct1L),Ct9,C(N=g 
1418 IF C(1)>=1 AND C(5))=1 
AND C(9)>=1 AND C(13))>=1 THE 
N ERG$=ERGSERS(23)&"+" ELSE 
1439 
1428 Ct1),C(5),C(9),C(13)=9 
1438 IF C(S5)>=1 AND C(4))= 
AND C(13)>=1 AND C(12)>=1 TH 
EN ERG$=ERGS$SERS$ (24) "+" ELSE 
1459 
1348 C(5),C14),Cl139,C(12)=8 
1458 IF C(@)>=1 AND C(4)}= 
AND C(8)>=1 AND Ct12)>=1 THE 
N ERG$S=ERGSERS(25)K"+4" ELSE 
1479 
1468 C(9),C(4),C(8),C(12)=8 
1478 IF C(@)>=1 AND C(i))=1 
AND C(5)>=1 AND C(4)>=1 THEN 
ERGS=ERGSERS (26) K"+" ELSE 1 
4983 
1488 C(D),C(1),C(5),C(A)=g 
1499 IF C(2)>=1 AND C(3))=1 
AND C(7)>=1 AND C(6)>=i THEN 
ERGS=ERGSERS (27)K" +" ELSE I 
519 
1598 C(2),C(3),C(7),C(6)=@ 
1518 IF C(1@)>=1 AND C(11))= 
1 AND Cti5)>=1 AND Cti4))=1 
THEN ERG$S=ERGSERS(2B)K"+" EL 
SE 1539 
1528 C(19),Ct11),Ct15),C(14) 
=g 
1538 IF C(8)>=1 AND C(9))=1 
AND C(13)>=1 AND C(12)>=1 TH 
EN ERG$=ERG$ERS(Z29)&"+" ELSE 
1558 
1548 C(8),C(9M ,C(13),C(12)=4 
15598 IF C(@)>=1 AND C(2)>=1 
AND Ct1@)>=1 AND C(8))=1 THE 
N ERG$=ERG$KR$S(39)&"+" ELSE 
1578 
1568 C(9),C(2),C(19),C(8)=8 
1578 IF Ci1)>=1 AND C(3)>)=1 
AND Cti1)>=1 AND C(9)>=1 THE 


c(D)= 





N ERG$S=ERGSERS (31)&"+" ELSE 

1598 

1588 Ct1i1,C(3),C(11),C(9)=8 

1598 IF C(5)>=1 AND C(?)>=1 

AND Ct15)>=1 AND Ct(13)>=1 TH 

EN ERG$S=ERGSERS (32)&"+" ELSE 
1618 

1688 CIS),CI(7),C(15),C(12)=9 

1618 IF Ci4)>=1 AND C(6) >=1 

AND Ctiga)>=1 AND Cti2)>=1 TH 

EN ERG$S=ERG$SERS$ (23)&"+" ELSE 
16549 

1628 Ct4),C(6),Ci14),Ct12)=9 

1639 ! 

16489 '2er BLOCK 

1658 IF C(®&)>=1 AND Cti))=1 

THEN ERG$S=ERGERRSE (F3A4)RK" +" EL 

SE 167€ 

16£B CI) ,Ci1)=9 

1678 IF C(1)>=1 AND C(5)>=1 

THEN ERGS$S=ERGERRS (35)8:"+" EL 

SE 16990 

1688 C(1),Ct(5)=8 

1698 IF C(5)>=1 AND C(4)>=i 

THEN ERG$=ERGSRRE(3E)R" +" EL 

SE 1718 

1788 C(5),C(4)=& 

1718 IF C(2)>=1 AND C(3))=1 

THEN ERGS=SERGSEKRSE(ZT)E"+" EL 

SE 1738 

1728 Ct2),C(3)=9 

1738 IF Ct3)>=1 AND C(?))>=l 

THEN ERGS=ERGSERS(28)K"+" EL 

SE 1754 

1748 C(3),Ct7)=8 

1759 IF Ct6)>=1 AND C(?))=i 

THEN ERG$=ERGSEKRE(39Y)R" +" EL 

SE 1774 

1768 Ci6),Ci?7)=8 

1778 IF C(1@)>=1 AND C(11i)>= 

1 THEN ERGS$S=ERGSERS (AU) de" +" 

ELSE 1798 

1788 Ctia),C(11)=A 

1798 IF Ctil)>=1 AND C(15)}= 

i THEN ERGSEERGSRRSLALYK" +" 

ELSE 1819 

1888 Ct11),C(15)=% 

1818 IF Ct(15)>=1 AND C(14) >= 

i THEN ERG$S=ERGSERS (A2)&" +" 

ELSE 1839 

1828 Ct15),C(14)=8 

1839 IF Ci8)>=1 AND C(9)>=1 

THEN ERG$S=ERGSERS (A3)&"+" EL 

SE 1859 

18498 C(8),C(9)=8 

1858 IF C(9)>=1 AND C(13)>=1 
THEN ERGS=ERGSERS (A4)R"+" E 

LSE 187% 

1868 C(9),C(13)=B 

1878 IF C(13)>=1 AND C(12))= 
i THEN ERGS$S=ERGSEERS (45) "+" 
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ELSE 1899 
1888 C(13) ,C(12)=8 

18998 IF C(@)>=1 AND Ci4))=1 

THEN ERGS=ERGSERS (AE)R" +" EL 

SE 1918 

1999 CD) ,Ct4)=8 

1912 IF C(2)N=1 AND Ci&))=1 

THEN ERG$=ERGSERS (A7)R" +" EL 

SE 1939 

1928 C(2) ,Ci6)=0 

1938 IF C(19)>=1 AND C(14))= 
i THEN ERG$=ERGSERS (AB) "+" 

ELSE 1959 

1949 C(19),Cl14)=2 

1958 IF C(8)>=1 AND Ct12))=1 
THEN ERG$=ERGSERS (AN) RK" +" E 

LSE 1978 

1968 CI8),C(12)=8 

1978 IF C(B)>=1 AND Ct2)Y=1 
THEN ERG$=ERGSKRS(SO)R"+" EL 
SE 1998 

1968 CI@),C(2)=8 

1998 IF C(1)>=1 AND Ci(3)>=] 
THEN ERG$=ERGSERS(SL)R" +" EL 
SE 2210 

2888 C(1),C(3)=8 

2818 IF C(S))=1 AND C(”))=1 
THEN ERGE=SERGEKRSE (SZ) +" EL 
SE 203% 

2028 C(5),C(7)=8 

20839 IF C(4}>=1 AND C(&)>=1 
THEN ERGS=ERGSRRE (53) RK" +" EL 
SE 2958 

2848 C(4),Ci6)=H 

20859 IF C(Z)>=1 AND C(19))=1 
THEN ERG$=ERGSERS (54) "+" E 
LSE 2978 

2868 C(2),C(10)=9 

2878 IF C(3)>=1 AND C(il))=1 
THEN ERG$S=ERGSERE (5S)R" +4" E 
LSE 2699 

2088 C(3),Ct11)=8 

2898 IF C(”)>=1 AND C(15))=1 
THEN ERG$=ERGSKRS (56) &"+" E 

LSE 21198 

2188 C(7),C(15)=8 

2118 IF Ci&)>=1 AND Ci14))=1 
THEN ERG$=ERGEKRE (57) "+" E 
LSE 2138 

2128 C(6),C(14)=9 

2138 IF C(1@8)>=1 AND C(8))=1 
THEN ERGS$=ERGSERS(SB)R"+" E 
LSE 2159 

2148 C(19),C(8)=8 

2158 IF C(11)>=1 AND C(9))=1 
THEN ERG$S=ERGSERS (59) +" E 
LSE 2178 

2168 C(11),C(9N=9 

2178 IF C(15)>=1 AND C(13))= 
i THEN ERG$=ERGSERS (6@) "+" 
ELSE 2198 


2188 C(15),C(13)=8 

219@ IF C(i4)>=1 AND C(12)>= 
i THEN ERG$S=ERGSERS (61) R" +" 
ELSE 2218 

2208 C(14),C(12)=8 

2218 IF C(@)>=1 AND C(8)>=1 
THEN ERGS=ERGSERS(62)K" +" EL 
SE 2239 

2228 C(8),C(8)=8 


2238 IF Cti)>=1 AND C(9)>=1 
THEN ERG$=ERGSERS (63) &"+" EL 
SE 2259 

2248 C(1),C(9)=8 

2258 IF C(5)>=1 AND C(13)>=1 
THEN ERG$=ERGSERS(SA4)L"+" E 
LSE 2278 

2268 C(5),C(13)=9 

2278 IF Ct4)>=1 AND C(12)>=1 
THEN ERG$=ERGSERS (SF) "+" E 
LSE 2398 

2289 C(4),C(12)=8 

2299 ! 

2398 !ier BLOCK 

2318 FOR I=4@ TO 15 IF C(I 
)=1 THEN ERGS=ERGEERS (ES HI)% 
ng. 

2328 NEXT I 

2339 ERG$=-SEGS$ (ERG$,1,LEN(ER 
6$)-1) 


2349 ! 
2358 !ERGEBNISAUSGABE 
2368 A&="ERGEBNIS:" :: FOR I 


=1 TO LEN(A$ CALL HCHAR (2 
Q@,16+1,ASCI(SEGSLAS,I,1))):: 
NEXT I 
2378 ERGS$="A="KERGS$ 
NIERG$) >23 THEN 2398 
2388 FOR I=1 TO LEN(ERGS$):: 
CALL HCHAR (22,3+1,ASC (SEGS$(E 
RG$S,1,1))):: NEXT I GOTO 
2428 
2398 TEIL2$=SEGS$(ERG$,POSIER 
6%, "+",25) +1, (LEN(ERG$) -POS ( 
ERGS, "+",25))):: TEILI$=SEGS 
(ERC$, 1,POS(ERG$,"+",25)) 
2488 FOR I=1 TO LEN(TEILIS$): 
: CALL HCHAR (22, 3+1, ASC (SEG$ 
(ERGS,1,1))):: NEXT I 
2418 FOR I=1 TO LEN(TEIL2$): 
: CALL HCHAR (24,3+1, ASC (SEGS$ 
(TEIL28,1,1)))t: NEXT I 
2428 A$="NEUE EINGABE ? J/N" 
ı: FOR I=s1 TO LENtAS):: CAL 
L HCHAR (17, 19+1,ASC(SEGS(A$, 
1,1)))22 NEXT I 
2438 CALL KEY(2,K,S):: 
@ THEN 2438 
2448 IF K=78 THEN 2458 ELSE 
IF K=?4 THEN 258 ELSE 2438 
2458 CALL CLEAR END 


IF LE 


IF $= 


BÖRSE 


Sehr günstig ! Ex-Box mit RS 232, 32K, Disk und 
Controler 1.099,— Module Datenverw. und Text- 
und Daeiverwaltung je 40,—. J. Weiß, Franckestr. 
14, 3380 Goslar 

Nur 399,— DM VB für TI-99/4A mit Exbasic + 
Recorder + Kabel + Lit. + 2 Joyst. + Lerncas. + 
Softw. Tel. 02850/7654 

Suche folgende Module: Pole Position, Popeye, 
Frogger, Early Learning Fun! Telefon: 0212/ 
62443, Blasberg 

TI99/4A + Exbasic + 6 Mod + Joyst. + Sprach- 
synth. + Kabel + Rec + Joyadapter + 2 Software 
Kass. + Bücher. 400 DM! Tel. 06301/4809 

Verk. neuw. ext. RSZ32- Interf. f. TI, eingeb. 
Netzt., Bus durchgef. 2ser. Ports.: DM 220,— + 
NN/Verp. T.: 069 30 66 71 (nicht v. 7.—25.9.) 
TI99/4A + Assembler + TI-Forth + Ex-Basic + 
E-Box + Disk-Laufwerk + Controler VB 1300 DM 
0761/28 13 21 

Verk. TI 99/4A + Ex-B. + Rec. Kabel + Recorder 
+ ca. 40 Prg. + 6xTI-Revue VB 600 DM. 

M. Meincke, Tel. 04105/23 56 

TAUSCHE orig. Schachmodul + Publikation „TI 
99/4A Intern‘ + sehr gute ExB.-Software gegen 
Sprachsynthesizer. Interessenten bitte melden bei 
Holger Schwenke, Weststr. 33 A, 3162 Uetze 
Suceh Kontakt zu Ti-User. Ist das nichts? Schreibt 
an: M. Kugelmann, Nassauerstr. 4, 6272 Niedern- 
hausen 

Verkaufe TI + Box + 32K + RS232 + 2 Laufw. 

+ Contr. + XB + EA + Sprachs. + Multipaln + Bu- 
chungsj. + ca. 25 Module + Recorder (alles org.) 

+ Lit + Software auf 100 Disks auch einzeln, Preis 
VB. Tel. 0821/63 857 (helfe bei Problemen) + 
Joysticks 

TI-Module Datenverwaltung + Analyse und Stati- 
stik je 55 DM zus. 100 DM. Lutz Klaus, Tel. 
0931/95298 


Suche Disk und Controler für Ti99 — Preiswert! 
Angebot an: Günter Link, Schulstr. 43, 5241 
Scheuerfeld 

TI99/4A + ExtB + Rec + Joyst + 10 Kass=460 DM 
Module Schach + Adventure je 50 DM. Buchjour- 
nal 100 DM ab 19.00 Uhr 08551 / 1526 

Suche Ti-99 User im Raum Lippstadt und Soest 
zum Prog. und Erfahrungsaustausch in Ti- und 
Ext. Basic u. Speechsynthesizer (nur Cass.) mögl. 
Markus Loerwald, Eickelbornstr. 34, 478 Lipp- 
stadt 16. Tel. 02945/5711 

Verk. TI+ Box + 32k + RS 232 + Contr. + Laufw. 
+ 25 Module + Multiplan + 2 Laufwerk. J. Storn, 
Christleseeweg 34, 8900 Augsburg 

Verkaufe original 32k intern für Peri-Box — fast 
neu — für, 300,— DM. Tel. 08192/231 oder 089/ 
69 16 517 

Suche für TI99/4A PAL-Modulator. C. Hassel- 
kuss, Hinter der Mauer 26, 7024 Filderstadt, Tel. 
07158/2637, nur Sa-So 





199 
118 
129 
138 
148 
159 
168 
178 
189 
198 
2208 
218 '%* 

yy1 ER 2 5 5 2 2 2 2 2 2 2 22 22 2 22 22 22 20 
238 CALL CLEAR 

248 DISPLAY AT(8,3)BEEP: "HEX 
DUMP DRUCKERAUSGABE " 

258 DISPLAY AT(12,3):"FILENA 
MEx..20.:”" ACCEPT AT(12,1 
9): DRUCKS$ 

268 IF DRUCK$="" THEN 259 
278 DISPLAY AT(14,3): "ANFANG 
ADRESSE :>" :: ACCEPT AT(1i4, 
19)SIZE(4)VALIDATE(DIGIT, "AB 
CDEF"):SANFS$ 

288 DISPLAY AT(16,3): "ENDADR 
ESSE....:>*” ACCEPT ATIIG6, 
I9)SIZE(4)VALIDATE (DIGIT, "AB 
CDEF"):ENDS$ 


CKKKKKKRKKKNKKKIHNTRIN HN 
'% HEXDUMP 

I% Copyright 1985 by 
!% Bernard Schmidt 
'% 

I% Benoetigte Geraete 
!% T199/4A Konsole 
'!% TI Extended Basic 
'% 

'%* Speicherbelegung 
'% 1833 Bytes 


EZ 2.22 22022. „22. 2220 222. 222 222 = 


298 OPEN #1: DRUCKS$ :: PRINT 
Hl:".200..HEXDUMP" :: PRIMT 
#1 :: PRINT #1 

388 PRINT #1:"......VON..2"; 
ANF$:"..EIS,.>";ENTS 

318 PRINT #1 :: PRINT #1 :: 
CLOSE #1 


328 CALL HEXDEZ(ANF,ANFE)G: 
CALL HEXDEZ (ENDE ,ENDS) 


338 DIF=ENDE-ANF :: %=INT(DI 
F/i6):: K=8 :: ADR=ANF 

348 FOR I=1 TO X :: A$="" 5 
FOR J=8 TO 15 :: CALL PEEK( 


ANF+K+J, WERT) 

358 CALL DEZHEX (WERT,WERTS): 
A$=ASk" "RSEGS(WERTS,3,2): 

! NEXT J 

368 CALL DEZHEX (ADR,ADR$) 


378 OPEN #1:DRUCKS :: PRINT 
HEXDLUMF 
Van Fade BIS >0%55 
egga 82 Eu @u Z3 83 CH 
>3018 22 EI BE HS JE ME 
2] 84 54 ET ZZ ED 
HEOZE 22 Ba Ba 26 18 15 


67 
24 
75 
1& 





H1l:" >"5ADRSS".."5AS :: CLOS 
E #1 

388 K=K+16 :: ADR=ADR+16 :: 
NEXT I 


398 IF DIF-(xX%16)>=8 THEN 48 
8 ELSE 459 

488 Y=DIF-(X#16):: 
FOR 1I=8 TO Y 

418 CALL PEEK(ANF+K+I,WERT): 
: CALL DEZHEX (WERT,WERTS) 
428 AS=AEL" "RSEG$(WERT$,3,2 
NEXT I 

438 CALL DEZHEX (ANF+K,ADRS&) 


Az" " 


448 OPEN #1: DRUCK$ :: PRINT 
HIST D"ZADRSS".."3AS :: CLOS 
E #1 

458 CALL CLEAR 


468 DISPLAY AT(8,3)BEEP: "NEU 
E EINGABE (J/N) ?" 

478 CALL KEY(ß,K,S) 
THEN 478 

488 IF K=?74 THEN 238 ELSE IF 
K=78 THEN END EI.SE 47% 

498 SUB HEXDEZ(DEZ,HEX$) 

589 K(1)=4996 K(2)=256 
Ki3)zl& :: Kid)=i 

518 ZAHL$="8123456789ABCDEF" 

528 DE2Z=8 :: HEX$="9888" &CHEX 

2 HEX$S=SEG$ (HEX®S,LEN (HEXS$ 

)-3,4) 

538 FOR N=1 TO 4 :: DEZ=(POS 
(ZAHLS, SEGS(HEXS,N, 1), 1)-1)% 
KIN) +DEZ 


548 NEXT s: SUBEND 
558 SUB DEZHEX(DEZ,HEX$) 


IF $S=8 


560 ZAHL$="0123456789ABCDEF " 
:: HEX$,HEXI$="" ;: DEZI=DE 

z 

578 FOR N=1 10 4 :: R=(DEZI- 

INT(DEZ1/16'%16):: DEZI=INT( 

DEZ1/16) 

588 HEX1$=HEX18%&SEGS6 (ZAHL®,R 

+1,1):: NEXT N 

598 FOR N=1 TO 4 :;: HEX$=HEX 

SLSEGS(HEX18,5-N, 1): NEXT N 


SUBEND 


20 AA 94 62 
4 60 GE 78 
82 BF SC 92 


DS 


83 C8 9A 92 
Be 7A 1E Bf 
2 BE 21 06 


8 


am 
0% 


[x 








IE 2 2 2 2 2 52 2 2 2 2 2 2 2 2.2 2 2 2 2 2 22 
1% PNKELISTENGENERATER % 
1% Capysriaht 1985 by % 
ı% Bernard Schmidt 
1% 
1% bencortigte Geraste: 
ı% TI 997/44 Konsole 
ı%*% TI Extended Easic 
ı% 32K-Erweiterung 
1% 
ı% Speicherbelegung: 
ı% 1298 Bytes 
3 r 
VURRCKLRNNKKHKTIT KHK FERN 
CALL CLEAR 
DISPLAY AT(8,3)BEEP: "ERS 
TELLUNG VON POKELTISTEN" 3: D 
ISPLAY AT(18,8):"MIT DRUCKER 
ı» 
268 DISPLAY AT(18,3):"FILENA 
ME ." ss: ACCEPT AT(16,19) 
:DRUCKS :: IF DRUCK$="" THEN 
268 
278 DISPLAY AT(1?7,3):"PROGRA 
MMNAME ?" :: ACCEPT AT(17,19 
) !NAME$ 
288 DISPLAY ATt18,3):"STARTA 
DRESSE: >" ©: ACCEPT AT(18, 
19)SIZEtA)VALIDATE(DIGIT, "AB 
CDEF"):ANFS 
298 DISPLAY ATt28,3): "ENDADR 
ESSE : >" :: ACCEPT AT(28, 
19)SIZEI4)VALIDATE(DIGIT, "AB 
CDEF"):SENDS$ 
388 OPEN #1: DRUCK$ :: PRINT 
#1: "PROGRAMMNAME : "5; NAMES :: 
PRINT #1 :: PRINT #1: "POKEL 
ISTE VON >"5ANFSI" BIS >"JEN 
DE 
sıi8 PRINT #1 
328 PRINT #1 :: CLOSE #1 
338 CALL HEXDEZ (ANF,ANFS):: 
CALL HEXDEZ (ENDE,END$) 
348 DIF=ENDE-ANF :: X=1INT(DI 
F/28):: K=9 
358 FOR I=1 TO X :: Asg="" 
368 FOR JI=i TO 28 :: CALL PE 
EK{ANF+K+J-1,WERT):: AszsAS&" 
"KSTRS(WERT):: NEXT J 
378 OPEN #1: DRUCKS$ 


x 


Pas Su Su en zu Ze 


388 PRINT #1:" DATA "jAs 
398 CLOSE #1 

488 K=K+2@ :: NEXT I 

4198 IF DIF-(X%X2@) >= THEN 42 
8 ELSE 474 

428 Y=DIF-(XX2@):: Ak!" :: 
FOR I=8 TO Y 

438 CALL PEEK(ANF+K+I,WERTI: 
ı AS=ASE" "&RSTRS(WERT)S: NEX 
Tı 

448 OPEN #1:DRUCK$ 

458 PRINT #1:" DATA ";jAs$ 
468 CLOSE #1 

478 CALL CLEAR 

488 DISPLAY AT(8,3)BEEP: "NEU 
E EINGABE (J/N) ?" 

498 CALL KEY(@,K,S):: IF S=8 
THEN 498 

598 IF K=74 THEN 248 ELSE IF 
K=78 THEN END ELSE 498 

518 SUE HEXDEZ (DEZ,HEX$) 

528 K(1)=4096 :: K(2)=256 :: 
K(3)=16 :: Ki4)=1 

538 ZAHL$="@123456789ABCDEF" 

548 DEZ=@ :: HEX$="28908"&HEX 

:: HEX$=SEG$ (HEX$,LEN(HEX$ 

)-3,4) 

558 FOR N=i TO 4 :: DEZ=(POS 
(ZAHLS, SEGS(HEXS,N, 1), 1)-1)%* 

KIN) +DEZ 

548 NEXT N :;: SUBEND 


UNSER 
Z TELEFONSERVKE & 


Leserbriefe und Fragen sind uns stets willkommen. 
Wir beantworten sie entweder direkt oder auf 
der Leserbriefseite 
ACHTUNG !!! 

Wie immer steht unseren Lesern unser Telefon- 
Service zur Verfügung! Jeden Dienstag von 15 bis 
19 Uhr. Für technische Fragen: 0731/33 220 und 
für Listings/Programme: 089/129 80 13 
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POGSAMMNAME ;ERORE 


POKELTTTE YOM 


DAT” ES Er ”2 12 19 19& 48 i 
DATA 2; 2 DB a ı208 4 7& 4 1758 2 
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SPASS 
SPIEL 








SPANNUNG 


IRVEL 


Mit Ihrem Raumschiff 
haben Sie sich auf dem 
Planeten Irvel.verirrt. Um 
nach dem richtigen Heim- 
weg zu fragen, verlassen 
Sie Ihr Schiff und erkun- 
den den Planeten zu Fuß. 
Dabei geraten Sie in das 
gefürchtete Labyrinth 
von Irvel. 

Zwar finden Sie hier 
reichlich Schätze vor, mit 
denen Sie Punkte sam- 
meln können, doch nach 
2000 Punkten wird es 
den Hütern der Schätze 
zu viel und sie versuchen, 
den Eindringling zu ver- 
nichten. 

Die Mauern des Laby- 
rinthes verschieben sich 
plötzlich und gefährliche 
Fallgruben entstehen. 

Trotzdem kann das La- 


byrinth erst verlassen 
werden, wenn mindestens 
Schätze im Wert von 


10000 Punkten gesam- 
melt wurden. Je höher 
die Punktzahl steigt, 
desto gefährlicher wird 
der Aufenthalt im Laby- 
rinth. 

Um Ihnen den Aufent- 
halt etwas zu erleichtern, 
bekommen Sie bei 4500 
Punkten einen Bonus und 
ein zusätzliches Leben. 


Nur wenige sind aus 
diesem Labyrinth wieder 
heil ans Tageslicht ge- 
kommen. 

Ob Sie nun auch dazu 
gehören werden ??? 

P.S.: Denkt daran: Die 
Hilfspunkte im Listing 
nicht mit abtippen. 


The Castle of | 
81 Rooms 


Dieses Spiel ist im Adven- 
ture-Stil aufgebaut und 
hat eine 3D-Graphik. Die 
Aufgabe ist ganz einfach: 
Sie müssen aus dem La- 
byrinth herausfinden. 
Das müssen Sie aber le- 
bendig bewerkstelligen. 
In der Burg mit den 81 
Räumen (9x9) gibt es 
auch böse Geister und ei- 
nen sogenannten ‚Burgvi- 
rus‘. Der Kontakt mit ei- 
nem von beiden endet für 
Sie tödlich, es sei denn, 
Sie haben vorher in 
einem der Räume eine Bi- 
bel gegen den Geist oder 
eine Pille aufgenommen. 
Nehmen Sie einen Gegen- 
stand aus einem Raum 
auf, so verschwindet er 
von dort. Sie können je- 
weils nur drei Pillen und 
drei Bibeln tragen. Bei je- 
dem ‚Feindkontakt‘ wırd 


Ihnen das jeweilige Gegen- 
mittel abgezogen. Truhen 
und Kelche voller Energie 
können Sie nehmen, so- 
viel Sie wollen. Sinkt die 
Energie unter Null oder 
begegnen Sie einem Geist 
oder einem Virus ohne 
das entsprechende Gegen- 
mittel, so sterben Sie. 
G.S. 


Ecarte 


Dieses Programm erlaubt 
es, gegen den Computer 
Ecarte zu spielen. Hierbei 
gelten folgende Spielre- 
geln: Es wird mit einem 
Skatspiel (32 Karten) ge- 
spielt. Die Reihenfolge 
ist: König, Dame, Bube, 
As, 10,9, 8,7. 

Zuerst wird per Zufall 
bestimmt, welcher der 
beiden Spieler Geber und 
welcher Ausspielender 
ist. Dann werden die Kar- 
ten gegeben (dies wird 
unabhängig von den Spie- 
lerbezeichnungen immer 
vom Computer erledigt.). 
Jeder erhält fünf Karten. 
Die elfte Karte wird of- 
fen auf den Tisch gelegt 
und bestimmt die 
Trumpffarbe. Ist es ein 
König, so erhält der Ge- 
ber einen Punkt. Auch 
wenn einer der beiden 
Spieler den Trumpfkönig 
hat oder ihn später erhält, 
so kann er ihn anmelden 
und erhält einen Punkt 
dafür. (Taste ‚a‘). 

Nun muß der Ausspie- 
lende entscheiden, ob er 
spielen will (Taste ,‚s‘) 
oder ob er einige Karten 
austauschen will (Taste 
‚k‘). Will er Karten aus- 
tauschen, so muß der Ge- 
ber entscheiden, ob er 
doch spielen soll oder die 
Karten tauschen kann. 
dies wird wieder durch 
dieselben Tasten gesteu- 
ert. Bestätigt er den Aus- 
tausch, so müssen zuerst 
der Ausspielende und 
dann der Geber die Zahl 
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und die Nummern der 
auszutauschenden Karten 
angeben. Hierbei denkt 
man sich die Karten von 
oben nach unten von 1-5 
durchnumeriert. Dies ist 
nur möglich, solange 
noch Karten auf dem Ta- 
lon liegen. 

Hat einer der Spieler 
entschieden, daß das 
Spiel beginnen soll, so 
pet der Ausspielende 

ie erste Karte auf. Von 
diesem Zeitpunkt an ist 
es nicht mehr möglich, 
enen Trumpfkönig anzu- 
melden. Für das Bedienen 
gelten folgende Regeln: 
— Man muß, sofern mög- 
lich, immer bedienen! 

— Jeder Stich muß, wenn 
möglich, mitgenommen 
werden! 

Eine Karte wird durch 
Eingabe ihrer Nummer 
ausgespielt. Nach fünf 
Stichen ist das Spiel zu- 
ende. 

Hat derjenige, der zum 
Spiel aufgefordert hat, 
alle Stiche gemacht, so 
bekommt er zwei Punkte; 
hat er mindestens drei 
Stiche gemacht, so erhält 
er einen Punkt und hat er 
weniger als drei, werden 
ihm zwei Punkte abgezo- 
gen.. 

Der Computer über- 
wacht, daß der Spieler 
die Regeln genau einhält 


und spielt den Stich 
selbst, wenn man das 
nicht tut. 


Sky-Driver 


Sky-Diver ist ein Spiel, 
das auf dem TI-Grundge- 
rät läuft. Aufgabe des 
Spielers ist es, Fallschirm- 
springer aus einem Hub- 
schrauber so abzusetzen, 
daß diese die Landemar- 
ke möglichst in der Mitte 
treffen. 

Die Position der Lan- 
demarke sowie der Hin- 
dernisse (Bäume und eine 
große Wolke) werden 
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durch die RND-Funktion 
bestimmt. 

Anfangs stehen 5 Sprin- 
ger zur Verfügung. Wird 
die Landemarke in der 
Mitte getroffen, so erhält 
der Spieler 3 Punkte; die 
Anzahl der Springer bleibt 
unverändert. Wird die 
Marke am Rand getrof- 
fen, so erhält man einen 
Punkt, aber es wird ein 
Springer abgezogen. Wird 
die Marke nicht getrof- 
fen, so wird ebenfalls ein 
Springer abgezogen. 

Bei 30 erreichten Punk- 
ten bekommt man einen 
Bonus-Springer. Der Spie- 
ler kann zwischen einer 
leichteren Spielvariante 
(ohne Windbeeinflussung 
des Springers) und einer 
etwas schwierigeren wäh- 
len. 


Variablen-Liste 


1,K,L Schleifenvariable 

M,Y Merker für Auszu- 

führende bzw. 

nicht mehr auszu- 

führende Pro- 

grammteile 

zum Einlesen der 

Data-Zeilen 

SP Spielart 

P Punkte 

MEN Anzahl der noch 

vorhandenen 

Springer 

Merker, ob der 

Bonus-Springer 

bereits einmal zu- 

gezählt wurde 

Wind von links/ 

rechts bzw. kein 

Wind 

Z,Q,W Variablen für 

die GChar-Ab- 

frage 

Bestimmen die 

Sprungbewegung 

Abfrage ob 0,1 

oder 3 Punkte er- 

zielt wurden 

T Bestimmt, ob ein 
Spieler abgezogen 
wird oder nicht 

EOF 


A,B 


BZ 


WM 


L,U 
PU 


Dirk Junghans 


CATCH WITH CAR 


Catch with Car ist ein 
Spielprogramm für den Ti 
99/4A in der Grundaus- 
stattung. Um das Pro- 
gramm laufen zu lassen, 
werden folgende Hard- 
ware-,,‚Teile‘ benötigt: 

1 Ti99/4A Computer 

1 Joystik (Joystik Nr. 2) 
1 Fernseher/Monitor 

und weiter empfehle ich 
einen Cassettenrekorder 
oder eine Diskettensta- 
tion zum Abspeichern 
des Programms. 

Sie leben auf einem 
fremden Planeten, der 
von riesigen Insekten be- 
herrscht wird. Ihre Auf- 
gabe ist es nun, mit Joy- 
stik 2 ein Fahrzeug zu 
steuern und dabei die In- 
sekten, die immer verein- 
zelt auftauchen, zu über- 
fahren. Da es auf dem 
Planeten ausschließlich 


Sandbogen gibt, reißt Ihr 


Fahrzeug tiefe Furchen 
in den Sand. Wenn Sie 
nun in eine solche Furche 
hineinfahren, gibt es 
Punktverlust. Insgesamt 
dürfen Sie auch nur 15- 
mal in eine solche Furche 
fahren. 

Es gibt verschiedene 
Arten von Insekten auf 


dem Planeten, bei einigen 
gibt es nur Punkte, wenn 
sie diese überfahren, bei 
anderen verschwindet an 
einigen vereinzelten Stel- 
len die Furche und bei 
noch anderen gibt es 
Punkte und es verschwin- 
den Furchenabschnitte. 
Ihnen stehen drei Fahr- 
zeuge zur Verfügung, die- 
se Zahl vermindert sich, 
wenn Sie aus dem Spiel- 
feld fahren. Folgende 
Punkte führen zum Spiel- 
ende: 

. Mehr als 15mal in eine 
Furche gefahren, weniger 
als Null Punkte. Dreimal 
aus dem Spielfeld gefah- 
ren. 

Wenn Sie 1500 Punkte 
erreicht haben, erhöht 
sich die Anzahl der Fahr- 
zeuge um eins, 25 Fur- 
chenabschnitte werden 
gelöscht und es ertönt ei- 
ne Melodie. 

Zu Beginn des Spiels 
und wenn Sie aus dem 
Feld gefahren sind, müs- 
sen Sie den Feuerknopf 
betätigen, um weiterfah- 
ren zu können. Und nun 
wünsche ich Ihnen viel 
Spaß mit dem Spiel!!! 

Dirk Junghans 


Dreiecks- und Kreisberechnungen 


Mit diesem Programm 
stellt‘ Euch der Autor, 
Jürgen Brühne, eine klei- 
ne Hilfe für die Hausauf- 
gaben zur Verfügung. Seid 
Ihr in Mathe gerade bei 
dem Thema Geometrie 
angelangt, kann der 
Rechner nun Eure Haus- 
aufgaben kontrollieren. 
‘Natürlich sollten die Auf- 
gaben auch weiterhin al- 
leine gemacht werden, 
denn wenn der TI99 Eure 
Aufgaben alleine macht, 
bleibt von dem Stoff bei 
Euch wenig hängen und 
am Ende des Schuljahres 
schlägt sich dies in Eurem 


Notenspiegel nieder. Auf 
jeden Fall dürft Ihr Euren 
Rechner aber die Aufga- 
ben auf korrekte Lösun- 
gen überprüfen lassen, um 
am nächsten Tag nicht 
auf die Nase zu fallen. 
Da das Programm voll- 
ständig in TI-Basic. ge- 
schrieben wurde, braucht 
keiner von Euch darauf 
zu verzichten. 

Ein Menue führt durch 
das Programm und es 
müssen nur noch die ein- 
zelnen Werte der Berech- 
nungen eingegeben wer- 
den. 

Jürgen Brühne 
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Dreidimensionale 
Mühle 


Der Sinn dieses Spieles ist 
es, möglichst viele „Müh- 
len‘ zu bauen. 2 Spieler 
erhalten je 32 Steine, die 
sie abwechselnd setzen — 
einer dieser Spieler kann 
auch der Computer sein 
— Man versucht nun, 
durch geschicktes Setzen 
der Steine jeweils 4 in 
eine senkrechte, waage- 
rechte oder diagonale Li- 
nie zu bringen: 

0 0 
0 0 
0 0000 0 

0 


0 

Dies sind die Mühlen. 
Wenn alle Steine gesetzt 
sind, hat der Spieler mit 
den meisten Mühlen ge- 
wonnen. Das Zählen der 
Mühlen übernimmt der 
Computer. 

Bei diesem Spiel müs- 
sen einmal nicht feindli- 
che Objekte abgeschossen 
werden; es soll vielmehr 
das logische und räumli- 
che Denken gefördert 
werden. Jürgen Brühne 


Copyright 


Zeichen 


Das Programm „Copy- 
right Zeichen“ ist in TI- 
Basic programmiert wor- 
den, läuft aber auch 
unter Extended Basic! 
Sicher haben Sie auch 
schon einmal überlegt, 
welches Copyrightzei- 
chen Sie für Ihr Pro- 
gramm verwenden wollen, 
und haben dann krampf- 
haft irgendein Zeichen 
definiert. Mit diesem Pro- 
gramm hat das ein Ende! 
Hier haben Sie die Aus- 
wahl zwischen 11 vorde- 
finierten Copyrightzei- 
chen. Wählen Sie in 
einem Menü Ihr Zeichen 
und der TI wird Ihnen 
den 16stelligen Code auf 
den Bildschirm schrei- 
ben! Viel Spaß beim Aus- 
suchen. 





Matthias Orf » 


18 REMIRKRRHHÄRKRRRHHHKRTNR 
i1 REM* * 
12 REM* IRVEL * 
13 REM* Copyright by * 
14 REM% Manfred Lipowski %* 
15 REM+ * 
17 REM%Benoetigte Geraete* 
18 REM% TI1I99/4A Konsole * 
19 REM* * 
23 REM* Speicherbelegung %* 
24 REM* 12779 Bytes * 
25 REMAKRKRKRRKNRKRRTRKKTTF 
26 REM 
128 RANDOMIZE 
138 CALL CLEAR 
148 CALL SCREEN (7?) 
158 CALL COLOR (1,16,16) 
1&8 FOR A=1 TO 24 
178 PRINT 
188 NEXT A 
198 REM 

GRAFIK IRVEL 
2288 CALL CHAR (64, "3C4299A1A1 
994230") 
218 CALL CHAR (96, "0018180818 
181818") 
228 CALL CHAR (97, "1818181818 
181818”) 
238 CALL CHAR (98, "BOO7C7Eb666 
Ssh6H7E") 
248 CALL CHAR (99, "7C7B4C bh 
6665") 
258 CALL CHAR (190, "O6 666% 
6666") 
268 CALL CHAR (181, "663C3C3C3 
ci181818*") 
278 CALL CHAR (182, "OR7E7EABEG 
BERABTT") 
288 CALL CHAR (183, "7CEBARADE 
BUR7ETE") 
298 CALL CHAR (194, "O0 BA RAR 
BMEAER" ) 
328 CALL CHAR (185, "60606 A606 
BER7E7E") 
318 REM 

GRAFIK SETZEN 
328 CALL COLOR (9,5,16) 
338 CALL COLOR (18,5,16) 
348 FOR A=2 TO 8 
358 CALL COLOR(A,13,16) 
368 NEXT A 
378 PRINT "...:..:..@8 'bdf 
Moe" oe: a CE g 
j* 
388 PRINT : : : : : : 201% 


398 PRINT "..PRESS ANY KEY T 
0 BEGIN" 

408 DATA 262,339,392, 262,338 
‚392,349,440,523,349, 449,523 
‚262,339, 392, 262,338, 392 


418 DATA 196,247,294,196,247 

‚294,262, 338,392, 262,338, 392 

‚349,449,523,349, 448,523 

428 DATA 262,3390,392,196,247 

‚294,262, 262,262 

438 RESTORE 498 

448 FOR A=1 TO 45 

458 READ BOT 

468 CALL KEY(8,K,S) 

478 IF S=® THEN 488 ELSE 518 

488 CALL SOUND(-999,BOT,8,BO 

T+2,8,BOT-2,9) 

498 NEXT A 

598 GOTO 438 

518 GOSUB 3258 

528 REM SPIELERKLAERUNG 

ODER 

PROGRAMANLEITUNG 


5328 FOR A=i1 TO 24 

548 PRINT 

558 NEXT A 

3568 PRINT "..SPIELERKLAERUNG 
? (J/N)" 

578 PRINT: 2: 2: 22209 


5883 GOTO 698 

598 CALL SOUND (99,110,28,228, 

9) 

688 CALL KEY(@,K,S) 

618 IF S=8 THEN 698 

628 IF K=78 THEN 829 

638 IF K=74 THEN 65% 

648 GOTO 598 

658 PRINT "..2c:::.:.@ ' bdFf 
NYritseee.:aceg ii"! 

668 PRINT "IHRE AUFGABE BEST 

EHT DARIN": : "DEN ABENTEURER 
SICHER DURCH": : "DAS LABYRI 

NTH VON IRVEL ZU": : "FUEHREN 
n 


678 PRINT : "ER MUSS ALLE 18 
SCHAETZE": : "BERUEHREN UM IN 
DIE NAECHSTE”": : "RUNDE ZU 

OMMEN. zer ees ed’ 2 2055 

688 CALL KEY(®,K,S) 

698 IF S=8 THEN 688 

788 PRINT : "BEI EINEM PUNKTE 
STAND VON": : "2088 P WERDEN 
DIE TEMPEL-": :"GOETTER ZORN 
IG UND FANGEN": : 

718 PRINT "AN DAS LABYRINT 
ZU VER-": : "SCHIEBEN. MAUERN 
WERDEN EIN-": : "GERISSEN UND 
AN ANDERER": ; "STELLE WIEDE 
R AUFGEBAUT !" 

728 PRINT :"LOECHER ERSCHEIN 
EN IM BODEN": : "UND VERSCHWI 
NDEN NACH EINER": : "WEILE.ER 
ST WENN IHR P-KONTO": : 

738 PRINT "102888 P ANZEIGT W 


ERDEN SIE": : "AUS DEM LABYRI 
NTH ENTLASSEN. " 
748 CALL KEY(8,K,S) 
758 IF S=8 THEN 748 
768 PRINT :"DAS SPIEL WIRD M 
IT JOYSTICK": :"1 GESTEUERT. 
DER ABENTEURER": :"KANN IN J 
EDE RICHTUNG ZIEHEN": : 
778 PRINT ",DIAGONAL ,SENKREC 
HT U.S.W.": 5"WIRD IHR ABENT 
EURER WOHL JE": : "WIEDER DEN 
BLAUEN HIMMEL VON": :"IRVEL 
ZU SEHEN BEKOMMEN ?" 
788 PRINT : "WER WEISS...!": 
s s "ALPHA LOCK BITTE AUSRAST 
EN !" 
798 PRINT : : : 
889 CALL KEY(@,K,S) 
819 IF S=8 THEN 896 
828 CALL CLEAR 
839 CALL SCREEN (2) 
8489 REM 
GRAFIK FUER EINGEN 
PROGRAMM 
WAENDE 
CHAR (33, "3C7EFFFFFF 


DLICHES 


859 CALL 
FFFESC") 
868 CALL 
2424FF") 
878 CALL 
SIB9FF") 
889 CALL 
9191FF") 
898 REM 


CHAR (49, "FF888888FF 
CHAR (41, "FF212121iFF 


CHAR (42, "FF848484FF 


GRAFIK SCHAETZE 
9988 CALL CHAR (112, "1F2345FDB 
S85S8öFCc") 
918 CALL CHAR (113, "224149556 
3777?F3E") 
928 CALL CHAR (114,"1919838181 
21912810") 
938 CALL CHAR (115, "?7F398FC?83 
2222238") 
948 CALL CHAR (116, "OB0O9AFEBAB 
EiIFSOESA4") 
958 CALL CHAR (117, "183C5A?E? 
E243C18") 
968 CALL CHAR (118, "1C222A5D4 
P2A221C") 
978 CALL CHAR (119, "BA00ABADB 
FAS4598") 
988 REM ABENTEURER 
9978 CALL CHAR (129, "181864BD9 
9242442") 
1888 CALL CHAR (121,"181A6#4FBD 
9A242412") 
1818 CALL CHAR (122, "1858F6BD 
59242448") 
1828 REM GRAFIK ABENTEU. ANZE 
IGE U. HINTERG. 
1939 CALL CHAR (149, "00000008 
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2ODZDDAD" ) 
18498 CALL CHAR(141,"181866BD 
99242442") 
1259 REM 

1969 CALL 
18798 CALL 
1989 CALL 
19998 CALL 
11898 CALL 
1112 CALL 
1128 CALL 
1139 CALL 
11498 CALL 
1159 CALL 
11898 CALL 


SPIELFELD AUFBAU 
COLOR (2,13,15) 
COLOR (1,2,16) 
COLOR (14,15,1) 
COLOR (3,8,1) 

COLOR (4,8, 1) 

COLOR (5,11,1) 
COLOR (6, 11,1) 
COLOR (7,11,1) 
COLOR (8, 11,1) 
COLOR (11,5,16) 
COLOR (12,2,16) 
1178 CALL HCHAR(1,1,149,96) 
1188 DATA "eTcieeeeceterereeee 

rerteetttettter "0 
RR ER SPORE UHR 5 
11PD DATA "Done alananlenıık 
null IN LE 
KO MR CO RL," O. 
ER EN EEE 
(" 

1298 DATA "( ( 

it a . 

PSP N: Pe : 

1218 DATA "KO KO... H 

VRR RT een 
IV Lernen tt, rt 
RE ke lanen ke t Kite 
(" 

1228 DATA aaa 6 7 | 

Der ttet R 
KRRRWEE TEE EURuER EEE 
1238 DATA "(onenennnelen 
legen FT ÜLO. Bi 
VII KO KO RE 
1248 DATA "(Oacecenn 
EEE LT 
RÜLLLLELELLLO Fk 
1258 DATA "acer 
RRORERERRRR CE 3 
KOM RIO CO RG 
L2ED DATA "Vocnuelaanlaneıck 
einer DW Kuss 
Gans BT 
1278 DATA "etcteceeterteceiee 
erererererereten 
1288 RESTORE 1188 
1298 FOR A=4 TO 24 
1388 READ Bs 
1318 FOR B=i1 TO LEN(B$) 

1328 CALL HCHAR (A,B,ASC (SEGS 

(B$,B,1))) 

1338 NEXT B 
1348 NEXT A 
1358 A=1 

1368 B=3 

1378 A®="SCORE:" 
1388 GOSUB 2899 


kasa 


da Dart 
(tt? es 
( 


( 


ae 
ek 
a 
(dd 


( 
1 
( 


1398 A=1i 
1429 B=19 
1919 Ag="MEN:" 


1428 GOSUB 2898 

1438 MEN=3 

1449 GOSUB 2948 

1458 SCORE=58 

1460 GOSUB 3948 

1479 GOSUB 2398 

1488 REM ABENTEURER ZUFAELL 
16 SETZEN ! 

1498 XX=INT (RNDX19) +4 

1588 YY=INT(RND#27) +2 

1518 CALL GCHAR (XX,YY,PP) 
1528 IF PP<>32 THEN 1498 
1538 CALL HCHAR(XX,YY,12@) 
1549 GOSUB 3258 

1558 PAT=128 

1568 REM HAUPTTEIL DES 

PROGRAMMS 

1578 CALL HCHAR (XX,YY,PAT) 
1588 CALL SOUND (-999,-4,9) 
1598 IF SCORE<=2888 THEN 162 

2 ELSE 1698 

1688 IF RND<.4 THEN 1618 ELS 
E 1628 

1619 GOSUB 2528 

1628 CALL JOYST(1,X%,Y) 

1638 IF (X=@)%(Y=8)THEN 1578 
1649 IF %=-4 THEN 1698 

1658 IF %X=4 THEN 1728 

1668 IF Y=-4 THEN 1758 

1678 IF Y=4 THEN 1788 

1688 G0TO 1629 

1698 PAT=121 

1788 SOU=-5 

1718 GOTO 189% 

1728 PAT=122 

1738 SOU=-5 

1748 GOTO 1828 

1758 PAT=128 

1768 SOU=-6 

1778 G0TO 1898 

1788 PAT=129 

1798 SOU=-7 

1828 CALL HCHAR (XX,YY,32) 
1818 SCORE=SCORE-1 

1828 IF SCORE<ß THEN 3319 
1838 XX=XX+(Y/-4) 

1848 YY=YY+(xX/4) 

1858 CALL GCHAR(XX,YY,PP) 
1868 IF PP<>32 THEN 1989 
1878 CALL HCHAR(XX,YY,PAT) 
1888 CALL SOUND(-1,S0U,9) 
1898 G0TO 1628 

1988 REM ABFRAGE OB WAND 
ODER SCHATZ BERUEHRT 

1918 IF (PP=48)+(PP=41)+(PP= 
42)+(PP=33)THEN 192% ELSE 21 
19 


1928 FOR A=3 TO 38 STEP 3 
1938 CALL SOUND(-99,-5,A) 
1948 NEXT A 

19598 CALL HCHAR(XX,YY,49) 


1968 MEN=MEN-1 

1978 A=3 

1988 B=3 

1998 As="DORT"&CHRS(1AQ) "WA 
R"&CHRS (149) KEINE "&CHRS (148 
)&"MAUER" 

2088 IF PP=33 THEN 2818 ELSE 
2920 

2B1B A$="INS"ECHRS (LAD) K"LOC 
H"ECHRS$ (148) &" GEFALLEN" 

2028 GOSUB 2899 

28308 GOSUB 3258 

2048 GOSUB 2949 

2858 SCORE=SCORE- 128 

206B GOSUB 3949 

2078 FOR A=1 TO 498 

2088 NEXT A 

2098 CALL HCHAR(3,1,149,32) 

2180 G0TO 1498 

2118 CALL HCHAR(XX,YY,PAT) 

2128 TONO=INT (RNDX229) +22@ 
2138 FOR A=ß TO 38 STEP 5 
2148 CALL COLOR(12,7,16) 
2158 CALL SOUND(-389,TONO,A, 
TONO+2, A, TONO/2,A) 

2168 CALL COLOR(12,2,16) 
2178 NEXT A 

2188 IF PP=117 THEN 2198 ELS 
E 2219 

21989 SCORE=SCORE+159 

2288 GOTO 2320 

2218 IF PP=113 THEN 2228 ELS 
E 2248 

2228 SCORE=SCORE+125 

2238 G0TO 2328 

2248 IF PP=118 THEN 2258 ELS 
E 2278 

2258 SCORE=SCORE +298 

2268 G0TO 2328 

2278 IF PP=112 THEN 2288 ELS 
E 2318 

2288 SCORi=INT(RND%158) +25 
2298 SCORE=SCORE+SCOR1 

2388 GOTO 2328 

2318 SCORE=SCORE+198 

2328 GOSUB 3949 

2338 SCOR1=8 

2348 SCHATZ=SCHATZ+1 

2358 IF SCHATZ=18 THEN 2368 
ELSE 1628 

2368 GOSUB 2398 

2378 6010 1578 

2388 REM SCHATZ SETZEN 
2398 FOR AP=1 TO 18 

2488 QWE=INT (RNDX229) +229 
2418 QQ=INT(RNDX19) +4 


2428 
2439 
2449 
2458 


WW=INT(RNDX29) +2 

CALL GCHAR (QQ,WW,EE) 

IF EE<{>32 THEN 2418 
RR=INT (RNDXB+1) +111 
2468 CALL HCHAR (aa, WW, RR) 
2478 CALL SOUND (-99,QWE,AP#2 
‚AWE/2,AP*2) 

2488 NEXT AP 

2498 SCHATZ=9 

2588 RETURN 
2518 REM WAND ENTFERNEN 
LOCH SETZEN 
LOCH ENTFERNEN 
WAND SETZEN 
2529 
2538 


REM 

ZX=INT (RND$18) +5 

2549 XZ=INT(RND#27) +3 

2558 CALL GCHAR (ZX,XZ,Z2) 
2568 IF (ZZ AB) HIZZ< >41) 12 
Z<>42)THEN 2538 

2578 CALL SOUND(-99,-7,9) 
2588 CALL HCHAR (ZX,XZ,32) 
2599 CALL SOUND(-99,-5,3) 
2628 ON INT(RNDX3+1)G0TO 261 
2,2688, 2798 

2618 ZX=INT(RND#18) +5 

2628 XZ=INT(RND#27) +5 

2638 CALL GCHAR(ZX,X2,ZZ) 
2648 IF Z2Z<>32 THEN 2618 
2658 CALL SOUND(-99,-5,9) 
2668 CALL HCHAR (ZX,X2,33) 
2678 CALL SOUND(-99,-6,3) 
2688 IF RND<.4 THEN 2698 ELS 
E 2798 

ZX=INT (RNDX18) +5 

XZ=1NT (RND#27) +5 
XTA=XTA+1 

IF XTA=5 THEN 2788 
CALL GCHAR (ZX,X2,22) 

IF 22X>33 THEN 2699 
CALL SOUND (-99,-6,8) 
CALL HCHAR (2X, XZ, 48) 
CALL SOUND (-99,-7,5) 
XTA=@ 

IF RND<.& THEN 2898 ELS 
E 2878 

2888 ZX=INT(RNDX18) +5 

2818 XZ=INT(RNDX27) +5 

2828 CALL GCHAR(ZX,%XZ,22) 
2838 IF Z2<>32 THEN 2808 
2848 CALL SOUND(-99,-1,9) 
2858 CALL HCHAR (ZX,XZ,48) 
2868 CALL SOUND(-99,-3,9) 
2878 RETURN 

2888 REM WOERTER PRINTEN 
2898 FOR C=1 TO LEN(A$) 

2988 CALL HCHAR (A,B+C,ASC (SE 
G8(AB,C,1))) 

2918 CALL SOUND(1,-1,9) 

2928 NEXT C 

2938 RETURN 


89 


2748 IF MEN{=8 THEN 2998 ELS 
E 2958 

2958 CALL HCHAR(1,24,148,4) 
2968 CALL HCHAR(1,24,141,MEN 
) 


2978 


2988 
2998 
3229 
3218 
3228 
3938 


CALL SOUND(-1,-2,6) 


RETURN 

CALL HCHAR(1,24,48) 
GOSUB 38048 

GOSUB 3259 

G0TO 3318 

REM SCORE PRINTEN 

3948 CALL HCHAR(1,19,149,6) 
3858 FOR AFF=i TO LEN(STR$(S 
CORE) ) 

3868 CALL HCHAR (1, 9+AFF,ASC( 
SEG$ (STR$ (SCORE) ,AFF,1))) 
3878 CALL SOUND(-1,-3,5) 
3888 NEXT AFF 

3898 IF SCORE<{=® THEN 331% 
3188 IF (SCORE>4599)K(SCORE< 
S5@8)THEN 3118 ELSE 3228 
3118 SCORE=SCORE +2598 

3129 A=3 

3130 B=3 

3148 A$="BONUS"&CHRS (149) &"B 
ONUS" &CHRS$ (149) &" BONUS" &CHR$ 
(149) &" BONUS" 

3158 GOSUB 2898 

3168 MEN=MEN+1 

3178 GOSUB 2949 

3189 GOSUB 3259 

3199 GOSUB 3259 

3209 GOSUB 3258 

321@ CALL HCHAR(3,1,149,32) 
3228 IF SCORE>=19908@ THEN 37 
19 
3239 
3249 


RETURN 

REM ZUFALLSERZEUGUNG 
TON 

TON=INT (RND#288) +22% 


FOR ATT=® TO 38 STEP 2. 


3258 
3268 
5 
327@ CALL SOUND(-99,TON,ATT, 
TON+2,ATT,TON/2,ATT) 

3288 NEXT ATT 

3298 RETURN 

3388 REM  SPIELENDE 

3318 FOR A=2 TO 28 

3328 CALL COLOR(1,2,7) 

3338 CALL COLOR(11,2,7) 

3348 CALL SOUND(-99,4908,A-2, 
AOQ+A%2, A, ABQ+AX2, A) 

3358 CALL COLOR(1,2,16) 

3368 CALL COLOR(11,5,16) 
3378 CALL SOUND (-99,498,A-2, 
400-AX2,A,408-A%2, A) 

3388 NEXT A 

3398 FOR A=8 TO 38 STEP 2.5 
3488 CALL SCREEN (?) 


3418 
3428 
3438 
3449 
3459 
3469 
3478 
3489 
3499 
3529 
3519 
3529 B=4 

3538 A$="LEIDER"&CHRS (149) &" 
VERLOREN" 

3549 GOSUB 2898 

3559 A=1% 

3569 B=4 

3579 A$="NOCHMAL "&CHR$ (149) & 
"PIRCHRS(1AU) RE" I" ECHRS(142) &e 
1" 

3589 GOSUB 2898 

3599 RESTORE 489 

3688 FOR A=1 TO 45 

3619 READ BOT 

3628 CALL SOUND(-999,BOT,9,B 
0T+2,9,BOT+4,®) 

3639 CALL KEY(®,K,S) 

3648 IF S=@ THEN 3659 ELSE 3 
678 
3659 
3669 
3679 
259 
3689 
3698 
3788 
3718 


CALL SOUND(-99,-5,A) 
CALL SCREEN (16) 

NEXT A 

CALL SCREEN (2) 

FOR A=32 TO i STEP -1 
CALL VCHAR(4,A,148,21) 
NEXT A 

CALL HCHAR (3,1,148,32) 
SCORE=SCORE+158 

GOSUB 39848 

A=8 


NEXT A 
GOTO 3598 
IF (K=74)+(K=186) THEN 1 


GOSUB 3258 
CALL CLEAR 
END 

REM SPIEL 
GESCHAFFT 
FOR A=1 TO 3 


FOR B=5628 TO 768 STEP 2 


3728 
3739 
[ 
3749 CALL 
A,B+t2,A) 
3758 NEXT 
3768 NEXT 
3778 CALL 
3788 CALL 
3798 CALL 
232249999") 
38898 CALL CHAR (138, "CO69CQES 
BYODB34BE") 

3818 CALL CHAR (139, "23098908 
BLDAZIDR") 

3828 CALL CHAR (128, "02009883C 
&6FBFEBF") 

3838 CALL CHAR (129, "FF&6E3CHR 
BRDNDLAR") 

3848 CALL CHAR (139, "0998989893C 
6EFFFF?D") 

38598 CALL CHAR (131, "F37E3C9R 
2RBDIGDB") 


SOUND (-99,5690,A,B, 


B 

A 

CLEAR 

SCREEN (2) 

CHAR (136, "7FDB6EIF 
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3868 CALL CHAR (194, "00000303 
BFBFSCFE") 

3878 CALL CHAR (185, "FFFFC3C3 
BOORDAOR" ) 


38889 CALL CHAR (186, '"O288C9CH 
FOFBSCIF") 


38998 CALL 
39789 CALL 
3919 CALL 
3928 CALL 
3938 CALL 
3949 CALL 
3959 CALL 
S398D CALL 
3978 CALL 
3988 CALL 
3999 CALL 
42898 CALL 
aB1lD CALL 


COLOR (14,16,5) 
COLOR (13, 11,5) 
COLOR (18, 15,5) 
HCHARY1,1,148,224) 
HCHAR (2,4, 136) 
HCHAR (2,5, 138) 
HCHAR (3,5, 139) 
HCHAR (3,28, 136) 
HCHAR (3, 21,138) 
HCHAR (4, 21,139) 
HCHAR (2,28, 128) 
HCHAR (2,29, 139) 
HCHAR (3,28, 129) 
4828 CALL HCHAR(3,29,131) 
4838 FOR A=8 TO 24 

4848 CALL SOUND(-99,-7,A) 
4858 CALL HCHAR(A,1,48,32) 
4868 CALL HCHAR (A,32-A,32,2) 
4878 NEXT A 

4888 FOR A=1 TO 298 

4898 NEXT A 

4108 ZZ=8 

4118 FOR A=24 TO ? STEP -1 
4128 CALL HCHAR (A, 9+22,122) 
4138 CALL SOUND(2,-7,4) 
4148 CALL HCHAR (A, 9+Z2,32) 
4158 CALL SOUND(2,-5,1) 
4160 22=2Z+1 

4178 NEXT A 

4188 CALL COLOR(12,2,5) 
4198 CALL HCHAR (7,26, 129) 
4288 CALL SOUND (2,-6,8) 
4218 FOR A=1 TO 99 

4228 NEXT A 

4238 CALL HCHAR (7,7,194) 
4248 CALL HCHAR (7,8, 185) 
4258 CALL HCHAR (7,9,196) 
4268 FOR A=8 TO 38 STEP 5 
4278 CALL SOUND(-99,-5,A) 
4288 NEXT A 

4298 FOR A=26 TO 18 STEP 
4388 CALL SOUND (3, -7,3) 
4318 CALL HCHAR (7,A,121) 
432®8 CALL SOUND(3,-6,8) 
4338 CALL HCHAR (7,A, 149) 
4348 NEXT A 

4358 CALL HCHAR(6,8,129) 
4368 CALL SOUND(9,-5,9) 
4378 FOR A=8 TO 24 

4388 CALL SOUND (-99,-5,A) 
4398 CALL HCHAR(A,1,49,32) 
4488 CALL SOUND(-99,-6,A) 
4418 NEXT A 

4428 CALL COLOR(4,2,13) 


1 





4439 
4449 
4458 
4468 
4478 
4488 
4498 


4598 
45198 
45298 
4539 
N” 
4549 GOSUB 2898 

4558 DATA 229,294,294,339,37 
2,294,379,330,220,294,294,33 
2,370,292,277,277 

4569 DATA 220,294,294,339,37 
2,392,370,330,294,277, 220,24 
7,277,294,294 

4578 RESTORE 455% 

4588 FOR A=1 TO 31 

4599 CALL COLOR(18,16,5) 
4609 READ B 

4618 CALL KEY(9,K,S) 

4629 IF S=8 THEN 46398 ELSE 4 
678 

4638 CALL COLOR(19,15,5) 
4648 CALL SOUND (-559,B,8,B+2 
‚2,B+2,@) 

4658 NEXT A 

4668 GOTO 45798 


CALL 
CALL 
CALL 
CALL 
A=12 
B=4 

AS="GLE(SCCCHIALF(FI(T" 


GOSUB 2898 

A=14 

B=4 
AS="NOCH (EIN (SPIEL (?(JK 


COLOR (5,2,13) 
COLOR (6,2,13) 
COLOR (7,2,13) 
COLOR (8,2,13) 


4678 IF (K=?4) +(K=196) THEN 1 
29 

46868 CALL CLEAR 

4679 END 


BÖRSE 


TI-Peripherie zu kaufen gesucht, auch Z80 bzw. 
80-Zeich.-Karte. Johann Schmitz, Postfach 
900771,5 Köln 90 





Verk.: 32k-Card 300, P-Code-Card + Fill/ED/ 
COM ass. / Lnk / Uti 700, Disk-Cont + Dos 80 + 
Manager +.2 Kabel 350,— 06441/74830 

Suche preiswert TI-Modul Schach, Minimem, 
32K-Erw. seitlich ansteckbar. A. Mader, Tel. 069/ 
7837 25,ab 18 Uhr 








Kaufe TI 99/4A-Konsole oder Konsole mit Zu- 
behör. H. Ludwig, An Den Tannen 1, 6390 
Usingen 1 (06081/2897) 





Suche Tauschpartner für Software in TI+ Ex 
Liste an: Andreas Hoyer, Tulpenweg 7, 6052 
Mühlheim 





Verk. Software in TItEx ab 1 DM. Suche TI- 
Special II und Farb-Monitor 06108/69766 





Verk. TI 99/4A+XBasic + P-Box + Discontrl. 

+ Laufwerk + 32K + E/A-Mod + Spech-Synth. 
+ Grafik-Tableau + Cas.-Kabel + Deutsches E/A 
Buch + 10 Disk. + Joyst. + 50 Prg. + Literatur 
VB 2200 DM. Andreas Hoyer, Tulpenweg 7, 
6052 Mühlheim, Tel. 06108/69766 
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19 REMERRRRRRHHRRRTTKRTRKK 
il REM* * 
12 REM* COPYRIGHT-ZEICHEN* 
13 REM%* Copyright by * 
14 REM%* Matthias Orf * 
15 REM * 


REM%Benoetigte Geraete* 
REM%* TI99/4A Konsole * 
REM* * 
REM% Speicherbelegung * 
REM* 3618 Bytes % 
REMERHRKNTNNNNTHNTNTTNNK 
REM 
278 CALL 
288 CALL 
644438") 
298 CALL 
444438") 
388 CALL 
99423C*") 
3128 CALL 
423099") 
328 CALL 
BISIFF") 
338 CALL 
1998iFF") 
348 CALL CHAR (191, "304299919 
1994230") 

358 CALL CHAR (192, "304218202 
818423C") 

368 CALL CHAR (183, "O84299A1A 
1994298") 

378 CALL CHAR (194, "881020292 
2281C90") 

388 CALL CHAR (195, "893029202 
3293099") 

398 CALL CHAR (196, "E781B9ALA 
1B9S1E?") 

4838 CALL CHAR (197, "E78199A1A 
1A199E?") 

418 FOR I=i TO 24 

428 PRINT 

438 NEXT I 

4498 FOR E=1 TO i4 

458 CALL COLOR(E,16,11) 

468 NEXT E 

478 CALL SCREEN (16) 

488 PRINT ".....COPYRI 
GH T’: :"'eeeereo: 2 E 


CLEAR 
CHAR (48, "8838444054 


CHAR (79, "9938444444 
CHAR (97, "3C4299A1A1 
CHAR (98, "3C04299A199 
CHAR (99, "FFS1B9ALAIL 


CHAR (199, "FF8199A1A 


..- 
0 
+ [I 
.m 


499 x%=12 

599 Y=9 

513 T$="MARO-SOFT" 
528 GOSUB 2898 

539 x%=14 

549 Y=9 

353 T$="BAUNATAL" 

569 GOSUB 2999 

578 CALL COLOR (9,5,11) 


588 CALL COLOR(18,5,11) 


598 
688 
618 
629 
638 
69489 
659 
0) 
668 
678 
688 
28 
698 
728 
718 
728 
738 
748 
758 
768 
778 
ER" 
788 
798 
898 
818 
ICHE 
828 
838 
849 
858 
868 
879 
888 
898 
998 
918 
928 
938 


BIT 
ZEIC 
A HO 
978 
N CO 

IHR 
ROGR 
1089 
I... 
1918 
1922 
1939 
1948 
1959 
1968 


FOR I=187 TO 97 STEP 
CALL HCHAR(12,8,1) 
FOR A=1 TO 138 

NEXT A 

NEXT I 

FOR I=1 T0 2 

FOR W=208 TO 2088 STEP 3 


-1 


CALL SOUND (-59,W,9) 
NEXT W 
FOR W=2808 TO 288 STEP - 


CALL SOUND (-598,W,9) 

NEXT W 

NEXT I 

FOR W=8 TO 38 STEP i 
CALL SOUND(-229,2989,W) 
NEXT W 

x=18 

Y=3 

T$="SIE HABEN DIE QUAL D 


GOSUB 2998 
x=29 

Y=2 
T$="WAHL BEI DEN COPY-ZE 
N* 

GOSUB 2898 

FOR I=i1 TO 688 

NEXT I 

FOR E=si TO ? 

FOR W=e2 TO 16 

CALL SCREEN (W) 

NEXT W 

NEXT E 

CALL CLEAR 

FOR E=i TO 14 

CALL SCREEN (11) 

CALL COLOR(E,?,11) 

NEXT E 

CALL COLOR (9,2,11) 

CALL COLOR (19,2,11) 
PRINT "...abce def 9 
j k'rı 2 5'’...123495 
89 18 11’: 2:35 

PRINT "WAEHLEN SIE JETZT 
TE IHR": :"...COPYRIGHT- 
HEN UND": :" IHR TI-99/4 
MECOMPUTER*": : 

PRINT "SCHREIBT IHNEN DE 
DE ZUR”: : "VERWENDUNG IN 
EM EIGENEN": ;" 
AMM !"ı 2 5 


INPUT "IHRE 
"ZW 


ee 


WAHL?.. (1-1 


W=i 
w=2 
w=3 
Ww=4 
Ww=5 
Ww=6 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


1159 
1219 
1278 
1339 
1399 
1459 
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1979 
1988 
19998 


W=7 THEN 1518 
W=8 THEN 15789 
W=9 THEN 163% 
1129 W=1@ THEN 169% 
11198 W=11 THEN 1758 
11298 CALL CLEAR 


1138 PRINT "SIE SOLLEN DOCH 
EINE ZAHL": : "ZWISCHEN ""i"" 
UND ""11"""5 Ss WAEHLEN !*: 


1148 GOTO 1999 
1158 CALL CLEAR 
1168 x=18 
1178 Y=2 
1168 Tt="a = 
23CrH"" 

1198 GOSUB 2998 

1288 GOTO 1818 

1218 CALL CLEAR 

1228 X=19 

1238 Y=2 

1248 T$="b = ""304299A199423 
gun 
1259 
1268 
1278 
1289 
1298 Y=2 

1388 T$="c = ""FFS1B9ALAIBIB 
iFrFrern 

1318 GOSUB 2998 

1328 G0T0 1818 

1338 CALL CLEAR 

1348 X=18 

1359 Y=2 
1360 T$="d = ""FFBL99ALAL99B 
iFF""» 

1378 GOSUB 2998 

1388 GOTO 1818 

1398 CALL CLEAR 

1498 X=18 
1418 Y=2 
1428 T$="e 
23cCr"M“ 
1438 GOSUB 2098 

1448 GOTO 1818 

1458 CALL CLEAR 

1468 X=18 

1478 Y=2 

1488 T$="f = "3042182020184 
23cHH" 

1498 GOSUB 2898 

1588 GOTO 1818 

1518 CALL CLEAR 

1528 X=10 

1538 Y=2 

1549 T$="g = ""9O04299A1A1994 
zn 
1559 
1568 
1578 


""3C4299A1A1YFA 


GOSUB 299% 
GOTO 181% 
CALL CLEAR 
x=18 


""30642999191994 


GOSUB 28998 
GOTO 1818 
CALL CLEAR 





15898 %X=18 

1598 Y=2 

1688 T$="h = ""Q301C292020291 
ge“ 

1619 GOSUB 299% 

1628 GOTO 181% 

1638 CALL CLEAR 

1698 X=18 

1659 Y=2 

1669 T$="i = ""0933C202020203 
Gas 

1678 GOSUB 2999 

1668 GOTO 181% 

1698 CALL CLEAR 

1798 x%=1% 

1719 Y=2 

1728 T$="j = ""E781B9ALALBYE 
jEF""" 

1738 GOSUB 299% 

1748 GOTO 1818 

1758 CALL CLEAR 

1768 x%=1%8 

17798 \Y=2 

1769 T$="k = ""E78199ALALALY 
gEFr"N 

1799 GOSUB 2998 

1898 GOTO 1818 

18198 X=18 

1829 yY=2 

1839 T$="WENN FERTIG," 

1848 GOSUB 2998 

1859 x%=2% 

1868 Y=2 

1878 T$="TASTE DRUECKEN" 
1889 GOSUB 2899 

1898 CALL KEY(8,K,S) 

1988 IF S=8 THEN 189% 

1919 CALL HCHAR(16,1,32,3289) 
1929 xX=18 

1939 Y=2 

1948 T$="MOECHTEN SIE NOCH" 
1959 GOSUB 29898 

1969 X=2% 

19798 Y=a2 

19889 T$="MEHR CODE’S SEHEN ? 
1999 GOSUB 2999 

2288 INPUT " ":N$ 

2818 IF N$="J" THEN 98% 
2828 IF N$="N" THEN 2839 
2838 CALL CLEAR 

2848 PRINT ".....7 AUF WIEDE 


RSEHEN -": 2 2 3 221: 01.05% 


22858 FOR I=1 TO 598 

29868 NEXT I 

2878 PRINT : : 2: 22:02:03 
Car Be ur, 

29288 END 

2898 FOR W=i TO LEN(T$) 

2188 CALL HCHAR (X, Y+2,ASC (SE 


B8(T6,W,1))) 
2118 Y=Y+i 

2128 NEXT W 
2138 RETURN 


Die nächste 
TI REVUE erscheint 
am 28. Oktober 


BÖRSE 


Verkaufe TI99/4A + 32 k + Centr. + Recorder + 
Kabel + Ext.-Basic + Literat. + Listings + Pro- 
gramm-Cass. + Mini-roboter mit Steuerungs- 
programm + 2 Joysticks + Modul ‚‚Car Wars“ 
Tel.: 0781 / 75138 











ca. 15 bis 20 DM. Angebote an Michael v.d. 
Mühlen, Tel. 02103/44144 





Verkaufe Original TI ext. Basic Modul und Sanyo 
Monitor mit Kabel (grün/28 cm) im Raum 
Stuttgart für DM 150,— Bzw. 500,-. 

Tel. 0711/748318 nach 18 Uhr. 





Verkaufe Attack-Modul für 20 DM !!! 

Carsten Simms, Oldauer Heuweg 66, 

3107 Hambühren 2, Tel. 05084/3578 

Verkaufe Drucker Star DP515 DIN A3, Serielle + 
Paralelle Schnittstelle. Neupreis 2000 

Verk.Preis: 600,— DM 

Wie funktioniert Spracheing. MBX ohne Module, 
wer kann mir helfen? (Gegenleistung) 

Tel.: 07175/5031 (9—16 Uhr) 





Verk. o. tausche Lern- und Spielmodule (Othello 
u.a.) u. Apesoft Grafikprog. (mit 40 Grafik- 
befehlen!) Billig! Tel. 0561/516790 





Software-Verkauf für 99/4A: Module, X-Bas., 
Kass. und Bücher. Tel. 04102-64889 

Suche gute Assembler Prg. gegen Tausch. Suche 
Kontakte mit Akkustikkoppler-User. 

Tel. 07175/5031 








Tausche TI99/4A-Module Alpiner, Carwars, 
Othello, TI-Invaders gegen Pal-Modulator f. 
UHF-Kanal 36 — Tel. 05205/7405 





Verkaufe: TI99/4A + EXT.-Basic + Handbücher 
+ Joysticks + Kass. Rec.-Kabel (1) + Literatur 

+ Software, alles original TI! UB 450,— DM 
Michael Habermann, Tel.: 06842/514 83 nach- 
mittags. 





Tausche od. verkaufe: Cassetten HiFi-Deck 
NAKAMICHI DRAGON (Referenz bei Stereo- 
play u. Stereo) m. folgd. Ausstattg. = Revers, 
Einmesscomputer, autom. Azimuth-Regelung 
usw. Neupr. DM 4150,— im Tausch gegen kpl. 
ausgest. TI-99/4A Computer-Anlage od. für 
DM 


R. Göhring, Alvesloher Str. 21, 2358 Kaltenkirchen 
04191/7305 ab 15.10.85 


Downloaded from ww.ti99iuc.it 





REMIRRHHRNRRTTRTRRNRTN TR 
REMCASTLE of E€1 DOOMS* 


12 REM * 
13 REM Copyright by * 
14 REM Gerhard Stegmann * 


15 REM * 
17 REMtBenoetigte Geraete* 
18 REM T199/4A Konsole % 
19 REM + 
23 REM Speicherbelegung * 
24 REM 9978 Bytes % 
25 REMERFRETRRHKTRTIINTERK 
26 REM 

428 CALL CLEAR 

S28 CALL SCREEN (i2) 

6B PRINT Y!REKRKKRKREKHKNKKRTTTRK 
KRRERRKR" 

78 PRINT "* THE CASTLE OF 81 
ROOMS %*%..#1C)BY G.STEGMANN 
kauen ecKe s KGRAPHIK S.BURKERT 

1/84,.%" 
BP PRINT Y"RARRKKKRKRRRTTTTNH 
KRRKKKIR" 
98 PRINT : : : : 2: 2:2: 015 
188 PRINT "SPIELANLEITUNG? (J 
IND” 
118 CALL KEY(9,K,S) 
128 IF S=98 THEN 11 
138 IF K<>?4 THEN 549 
148 CALL CLEAR 
158 PRINT "SIE BEFINDEN SICH 
IN EINEM": "SCHLOSS MIT 681 R 
AEUMEN": : "DIESE RAEUME BEIN 
HALTEN" 
168 PRINT "VERSCHIEDENE GEGE 
NSTAENDE": : "ES KOENNEN JEWE 


ILS 2"; "GEGENSTAENDE VON EIN 

ER ART": "MIT DER TASTE’N’AUF 

178 PRINT "GENOMMEN WERDEN": 
:"EIN TIEFER TON NACH DEM " 
s"’AKTIONSPIEPS’ SIGNALISIER 

T*® 

188 PRINT "DASS NICHTS MEHR 

AUFGENOMMEN": "WERDEN KANN." 

198 PRINT : : "BITTE EINE TAS 

TE DRUECKEN" 

288 CALL KEYI(®,K,S) 

218 IF S=@ THEN 298 

228 CALL CLEAR 

238 PRINT "DIE BIBEL SCHUETZ 

T SIE":"VOR GEISTERN,DIE IHN 

EN": "MANCHMAL BEGEGNEN" 

248 PRINT "DIE PILLEN SCHUET 

ZEN SIE VOR": "DEM’ BURGVIRUS’ 


DER SIE ":"VON ZEIT ZU ZEIT 
INFIZIERT" 
258 PRINT "KELCHE UND TRUHEN 


KOENNEN ":"SIE SICH NEHMEN, 
SOVIEL SIE ": "WOLLEN" 
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268 PRINT : 
TE DRUECKEN" 
278 TPLL KEY(9,K,S) 


:"BITTE EIME TAS 


288 IF S=8 THEN 279 

298 CA!L CI.EAR 

338 PRINT "%% DIE PUHKTEVUERT 
EILUNE X": 

318 PRINT "PUNKTE.I..GEGENE” 
AND" 

328 PRINT "--------- --- 0. - 
338 PRINT "...2.2..1" 

348 PRINT "..68...1..TRUHE" 
358 PFINT "...2...1..KELCH" 
368 PRINT "...2...1..PILLE*® 
378 PFINT "...2...1..BIBEI" 
3e8 PRINT ".......1" 

398 PPINT : :"JEDER SCHRITT 
ODER JEDE TAT": :"KaSTET SIE 


2 ENERGIE -": "EINHEITEN": 
DER KELCH BRINGT 18" 


498 PRINT "ENERGIEEINHEITEN 

ZURUECK": : "BITTE EINE TASTE 
DRUECKEN" 

418 CALL KEY(2,K,S) 

428 IF S=@ THEN 419 

438 CALL CLEAF: 

448 PRINT "....%% DIE STEUER 

UNG KK": : 

458 PRINT "...22.1...V(VORWAER 

Ts)" 

46B PRINT "LILINKSD en aaacenn 
...RIRECHTS) 

478 PRINT "2.2222. . ZZURUECK 


y*" 
488 PRINT : :"....NIGEGENSTA 
ND AUFNEHMEN)": "DER ’HINWE 
IS’ ERINNERT":"SIE DARAN, DAS 
€ DER AUSGANG" 

498 PRINT "IN EINEM DER ANGR 
ENZENDEN" ; "RAEUME IST.SIE MU 
ESSEN ":"IHN DANN NUR NOCH F 
INDEN" 

598 PRINT "ALLES KLAR? (J/N)" 

518 CALL KEY(8,K,S) 

528 IF S=@ THEN 518 

538 IF K<>74 THEN 48 

548 CALL CLEAR 

558 DIM RAU(9,9) 

56 ENE=99 

578 PU=8 

588 REM %% AUFEAU DER RAEUME 
** 

598 

628 

618 


FÜR RAUM=i4 TO 9 

LET ZAHL (RAUM) = 

FOR RAUM2=1 TO 9 

628 RANDCEMIZE 

638 LET RAU(RAUM, RAUMZ)=INT ( 
9XRND+1) 

648 IF RAU(RAUM,RAUM2)=2 THE 
N 829 





658 


AUM, 


668 
678 
688 
678 
708 


798 
888 
818 
828 
838 
849 
858 
8658 
879 
888 
898 
998 
918 
928 


938 

949 

958 

968 

978 

988 

998 

1988 
1918 
1928 
1838 
19049 
1858 
185% 
107@ 
1088 
1099 
1198 
1118 
1128 
1138 
1149 
1158 
1168 
1178 
1188 
1198 
12980 
1219 
1228 
1238 
1248 


LET WE (RAUM, RAUM2) =RAU(R 
RAUM2) 

NEXT RAUM2 

NEXT RAUM 
RANDOMIZE 

HH=INT (OXRND#+1; 
RANDOMIZE 

BH=INT (9XPND+1) 
RAU (HH, BH) =2 
GOSUB 3989 

GOSUB 271% 

CALL CLEAR 

CALL SCREEN (2) 

FOR C=2 TO 8 

CALL COLOR (C,16,2) 
NEXT C 

FOR Y=1 TO 1598 
NEXT Y 

RANDOMIZE 
HO=SINT(9XRND+1Y 
RANDOMIZE 

BR=INT (PXRND+1) 
S0SUB 899 

GOSUB 948 

G0TO 1349 

CALL HCHAR (22,1,22,32) 
CALL SCREEN (2) 

FOR F=12 TO 16 
CALL COL.OR(F,2,2) 


NEXT F 

G0T0O 3358 

RETURN 

CALL VCHAR(1,4,143,19) 
CALL VCHAR(2,25,148,13) 
cALı 
FOR H=1 TC 6 


HCHAR (13,4, 148,21) 


B=4+H 

CALL HCHAR (H,E,137: 
NEXT H 

CALL HCHAR(3,11,122,8) 
FÜR H=! TO 5 

B=2&-H 

CALL. HCHAR(H,B, 136) 
NEXT H 

CALL VCHAR (?,19,139,9) 
CALL VCHAR(?,19,149,9) 
CALL VCHER(7,12,148,6) 
CALL VCHAR (#,:7,129,8) 
CALL HCHAR(2,13,138,4) 
CALL HCHAR(15,11,138) 
CALL HCHAR(:5,18,138) 
CALL HCHAR(15,12,159! 
CALL HCHAR(15,17,149) 
CALL HCHAR(:6,19,137) 
CALL HCHAR (16,19, 136) 
CALL HCHAR (16,28, 141) 
CALL HCHAR (16,9,141) 
CALL VCHAR (9,9,143,7) 
CALL VCHAR(9,29,142,7) 
CALL HCHAR (8,28, 142) 
CALL HCHAR(8,9,142) 
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1259 
1268 
1278 
1288 
1299 
1398 
1319 
1329 
1338 


CALL 
CALL 
CALL 
CALL 
TALL 
CALL 


HCHAR (7,9,146) 
HCHAR (7,29, 144) 
HCHAR (7,21, 145) 
HCHAR (6,21, 151) 
VCHAR (8,21, 149,19) 
HCHAR (7,8, 147) 
CALL HCHAR (6,8, 152) 
CALL VCHAR(8,8,139,19) 
GOSUB 258% 

1348 START=RAU(HO,BR) 

1358 ON START G0SUB 2029, 232 
9,2140, 2080, 2140, 2200, 2290,2 
769, 2928 

1368 CALL SOUND (199,598,9,6% 
9,0) 
1378 
4,8) 
1389 
18 
1399 
1409 
1418 
1428 
1439 


CALL SOUND (199,3908,9,48 
IF WE(HO,BR)<>8 THEN 14 


WERT=1 

G$="NICHTS" 

50SUB 3749 

CALL HCHAR (16,17,WERT1) 
F$="SIE FINDEN: " 

1448 FOR J=1 TI LEN(F$) 

1458 TA_L HCHAR (29, J+3,ASC($S 
EG$(F$,J,1))) 

1468 NEXT J 

14?7@ IF HA<S>HO THEN 1498 
1488 IF BA=EBR THEN 2919 

1498 FOR J=1 TO LEN(G$) 

159@ TALL HCHAR (22, J+3,ASCi$ 
EG£ (68, 1,1))) 

1519 NEXT I 

1528 CALL KEY(8,K,S) 

1539 CALL SOUND(-1929,-5,24) 
1549 IF S=8 THEN 1529 

15598 CALL SOUND (189,509,9,5% 
3,8) 
1569 
1578 
158 
1598 


STE=SCHRE(K) 
ENE=ENE-1I 
IF ENE>Gd THEN 1629 
CALL CLEAR 
1688 PRINT "TUT MIR LEID": : 
"SIE HABEN DIE GANZE ENERGIE 
VERBRAIICHT": "PUNKTE: ";PU: : 
"NGCHMAL? (II " 
1619 30170 .34978 
1628 IF 5T$="L" 
1639 IF ST$="R" 
1649 IF ST$="V" 
1659 IF ST$="2" 
1669 IF ST$<H"N" 
LSE 1794 
16798 GOSUR 898 
1688 HO=HO+1 
1698 GOTO 1336 
1788 BR=5R-i 
1718 GOSUB 399 
1728 GIJTO 1338 
1738 RR=BR+I 


THEN 
THEN 
THEN 176% 
THEN 1372 
THEN 1528 E 


1788 
1739 





1748 GOSUB 898 

17598 GOTO 1334 

1768 HO=HO-1 

1779 GOSUB 894 

1782 GOTO 1336 

1798 IF WERT=1 THEN 1838 
1888 IF WERT=6& THEN 1529 
1818 IF WE(HO,BR)=8 THEN 183 
[.) 

1828 IF ZAHL (WERT)<Z2 THEN 18 
5% 

18398 CALL SOUND (1899,119,9) 
1848 GOTO 1529 

1859 IF WERT1=128 THEN 1958 
1868 IF WERT1=128 THEN 1959 
1878 ZAHL WERT) =ZAHL (WERT) +1 
1888 WE(HO,BR)=# 

1898 CALL HCHAR (16,17,22) 
1988 FOR Y=692 TO 79 STEF 2 
% 


19198 CALL SOUND(-199,Y,9,Y+2 
8,9) 

1928 NEXT Y 

1938 PU=FU+2 

1948 GOTG 1528 

1959 PL=PU+60@ 

196B WE(HO,BR)=® 

1978 GOTO 1894 

1988 ENE=ENE +16 

1998 WE(HO,BR)=2 

2288 PU=Pl+2 

2819 GOTD 1898 

2828 G$="NICHTS" 

22839 WERT=1 

2848 V=16& 

2059 H=1 

28683 GOSUB 2388 

2878 RETURN 

2888 G$="EINEN KELCH MIT ENE 
RGIE" 

2098 WERT=2 

21898 V=9 

2118 H=15 

2128 GOSUF 2389 

2138 RETURN 

2198 G$="EINE BIBEL GEGEN GE 
ISTER" 

2158 WERT=3 

2168 V=2 

2178 H=15 

2188 GOSUB 2388 

2198 RETURN 

22088 G$="EINE PILLE GEGEN IN 
FEKTION” 

2218 WERT=4 

2228 V=8 

2238 H=5 

2249 GOSUB 2389 

2258 RETURN 

2268 G$="EINE TRUHE MIT GOLD 
DL 


2278 WERT=E 

2288 vV=2 

2298 H=? 

23988 GLıSUB 2388 

23128 RETURN 

2328 G&="EINEN HINWEIS" 
2338 WERT=& 

2348 V=? 

2358 H=12 

2368 GOSUB 2388 

2378 RETURN 

2388 FOR Y=14 TO 16 

23998 CALL COLOR(Y,Y,H) 
2488 NEXT Y 

2a18 CALL SCREEN(H) 

2428 GOSUB 2448 

2439 RETURN 

2448 EN$="ENERGIE." 

2458 FOR E=i U LEN(ENS$) 
2468 Cit!_L HCHARL19,E+3,ASC(E 
EGEIEN$,E,1))) 

2478 NEXT E 

2488 FOR E=t 10 LEN(STRE(ENE 
)) 

2498 CALL HCHAR (19,11 +E,ASC 
SEFEISTREIENE),E,1))) 
25988 NEXT E 

2518 FOR P=1 TO & 

2528 CA! HCHAR (19, 16+P,ASC Lt 
SEGE("FUNKTE",F,!)3) 
2538 NEY7T P 

2548 FOR FP=1 TC LEN{STR$ (PU) 
) 

2558 CAlL HCHAF(IP,24+P,ASC 
SEGS{STR$S{PU),P,!))) 
2568 NEXT P 

2578 RETURN 

2588 IF Hö=@ THEN 2536 
2598 IF HG=1@ THEN 2659 
26885 IF BR=i@ THEN 2679 
2618 IF BE=@ THEN 289% 
2629 RETURN 

2638 HO=9 

2638 RETURN 

26598 HO0=1 

2668 RETURN 

2678 BR=1 

2682 RETURN 

2698 RR=9 

2788 RETURN 

2718 RANDGMIZE 

2728 IF RND>.Z THEM 282 
2736 IF RND’,S THEN 2758 
2749 HA=NH 

275€ EA=BH+HI 

2768 IF RBA>9 THEN Z7IE 
2778 RETURN 

2788 HA=HH 

2798 BA=BH-I 

zZeEBE IF BA<i THEN 2719 
2818 RETURN 


2829 
2838 
2248 
2858 
2868 
2878 
2889 
2899 
2929 
2918 


IF RNDY.S THEN 2898 
HA=HH-1 

IF HA<1 THEN 2719 

BA=BH 

RETURN 

HA=HH+1 

IF HA>? THEN 2718 

BA=BH 

RETURN 

CALL CLEAR 

2928 CALL SCREEN (15) 

2938 PRINT "GRATULIERE!!*: 
"DU HAST DEN AUSGANG GEFUNDE 
N"S"PUNKTE: "$PU: 3 "BONUS: "jE 
NEX1908: : "GESAMT: "}PU+ENEX1Q 
7) 
2949 
2959 
2968 
2978 
2980 
2998 
3908 
3018 
3029 
3230 
39849 
3959 END 

3068 DATA -190,131,-199,123, 
-198,123, -100, 165, -190, 147,1 
28,175,10@8, 131 

3878 REM %% ZEICHENDEFINITIO 
N %% 

3088 CALL CHAR (96, "000000307 
87838" ) 

30898 CALL CHAR (194, "7C6C446C 
SCECTC?7C") 

3108 CALL CHAR(112,”18181818 
18091818") 

3118 CALL CHAR (129, "@9807EFF 
SIEFFFFF") 

3128 CALL CHAR(128, "4444447C 
1818187C") 

313@ CALL CHAR (136, "01829498 
10294489" ) 

314@ CALL CHAR (137, "890402819 
08849281") 

3158 CALL CHAR (138, "09900099 
QUBBABFF " ) 

3168 CALL CHAR (139, "80898989 
8080358") 

317@ CALL CHAR (149, "01919191 
gıa1alaı") 

3188 CALL CHAR(141, "81818181 
SISISIFF") 

3198 CALL CHAR (142, "FFS18181 
81818181") 

3288 CALL CHAR (143, "sis18181 
S1S18181") 

3218 CALL CHAR(144, "01029488 
102848831") 


ZAHL (4)=@ 

ZAHL. (3)=9 

RESTORE 39869 

FOR SOUND=1 TO ? 
READ D,F 

CALL SOUND (D,F,@,F+1,9) 
NEXT SOUND 

PRINT "NOCHMAL? (I) " 
CALL KEY(@,K,S) 

IF S=8 THEN 3029 

IF K=74 THEN 549 
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3228 CALL CHAR(145, "33059911 
21418191") 
3238 CALL CHAR(146, "80492919 
geBAaazsı") 
3248 CALL 'CHAR(147, "COA@POS8 
84828189") 
3258 CALI. CHAR (148, "FFFFFFFF 
FFFFFFFF") 
3268 CALL CHAR(149, "808998088 
SOSGSHFF") 
3278 CALL CHAR (159, "01019191 
SLBLBIFF") 
3288 CALL CHAR (151, "01939599 
11214181") 
3298 CALL CHAR(152, "80CQAg9Q 
38848281”) 
3399 CALL 
3319 CALL 
3324 CALL 


COLOR(9,16, 1) 

COLOR (18,2,1) 

COLOR (11,13, 1) 
3338 CALL COLOR(12,16,1) 
3348 CAIL COLOR(13,5,1) 

3358 RETURN 

3368 RANDOMIZE 

337@ REM %%* GEFAHREN *% 
3388 IF RND<.?9 THEN 958 
3398 IF RND>=.8123 THEN 3699 
3488 PRINT "IHNEN BEGEGNET E 
IN GEIST" 

3418 IF ZAHL(3)<1 THEN 3488 
3428 FRINT :"ABER SIE HABEN 
EINE BIBEL" 

3438 FOR H=1 TO 598 

3448 NEXT H 

3458 CALL CLEAR 

3468 ZAHL (3)=ZAHL(3) -1 

3478 GOTO 968 

3488 PRINT :"UND DA SIE KEIN 
E BIBEL":"MEHR HABEN, WERDEN 
SIE VON":"IHM GETOETET": :"N 
OCHMAL? (J) ": "PUNKTE: "3 PU 
3498 RESTORE 3739 

3588 FOR TM=1 10 11 

3518 READ DAUER, FRE@UENZ 
3528 CALL SOUND (DAUER, FREQUE 
NZ,@, FREQUENZ+1,9) 

3538 NEXT TM 

3548 CAILL KEY(@,K,S) 

3558 IF S=8 THEN 3549 

3568 ZAHI_(3)=8 

3578 ZAHL(4)=8 

3588 IF K=74 THEN 548 

3598 END 

3688 PRINT "SIE WERDEN VON E 
INEM VIRUS ": "INFIZIERT" 

3618 IF ZAHL(4)<1 THEN 3488 

3628 PRINT :"HABEN ABER NOCH 
EINE": "PILLE DIE SIE RETTET 

3638 ZAHL (4)=ZAHL(4) -1 

3648 FOR W=1 TO 598 

3658 NEXT W 





3668 TALL CLEAR 198 FRERKKRTIITTTTIITHIHNNN: 





' 
3678 GOTO 968 118! 3 x 
36868 FRINT : "UND WERDEN,DA 5 128 ' % ECARTE 3 
IE KEINE": "PILLE MEHR HABEN, 138 ! x Copyright by * 
VON IHM "5 "GETGETET":S"FUNKTE 148 ! %XChristiar weichmann * 
ympu 1598 ! x 3 
3698 FRINT : :"NOCHMALT(OD": 168 ! # Bensetigte Geraete + 
. 178 ! %* T1I99/4A Konsole % 
3788 ZAHL (4)=8 189 ' % Ext. Basic F 
3718 TAaHi.(a)=G 198 | % y 
37208 GUT 299% 2098 ! x Speicherbelegung 3 
3736 DATA 500, 176,590, 196, ,1E 218 : > 8645 Bytes Y 
2,198,5@4,1596,500, 233, 149,22 228 1 FRREKCHHENIKTIIHKNNI HN 
0,259,220,22@,196,259,196,25 225 ! 
a,en, tdi, IS: 238 RANDOHIZE 
3748 CN WERT GOTG 2759,3778, 248 G=INT(RNDX2) +1 
2794, 3210, 3276, Sesg 258 DIM K(2,5),KF(4,€‘,5(32) 
3758 WERT1=32 ‚Pi2) 
27EB8 RETURN 268 CALL VORBEREITUNG ıG) 
3778 WERTI=ITE 275 KFL=0 
3788 RETURN 288 FOR Li=1 TO 4 
3798 WERTI1=194 298 FOR L2=1 TO 8 
38ß8 RETURN 388 KFiLI,L2)=-1 
3818 WERTI=96 318 NEXT L2 
3829 RETURN 328 NEXT LI 
38390 WERT!=128 338 FOR KT=i1 TU 32 
3848 RETURN 348 KNI=INTIRNDX4+1) 
3858 WERTI=112 358 KNZ=INT(RNDXS+1 
3869 RETÜRH 368 IF KFIKNI,KN2)=G THEN 34 
[6 
Hard-and Software 378 S(KT)=18%XKNI+KNZ2 


388 KF(KNI,KNZ2)=@ 

398 NEXT KT 

490 2=32 

418 FOR KT=1 TO 5 

428 FOR SP=2-G TO 6 STEP (6 
£3-6)+.5)%2 

436 KISF,KT)=S1(2) 






448 Z=2-1 
458 CALL KARTE(-(SP=1)%51(Z+1 
ern ),5%(KT-1)+1,5+6%$P) 
@ 030/491 7042 468 NEXT SP a 


478 NEXT KT 
488 TK=S(2) 
ad 498 T=INT(TK/19) 

508 IF TK-T#10=8 THEN P(G)=P 
(G)+1 3: KFL=-1 3: CALi. BILD 


Hardware: 


Grafik-Tablett 98.- DM SCHIRM (@,Ft),@,4,6G) 

EFS 99 zen RAM, 2Z+RS-232, I*Centr.. [ E19 CALI, KARTE {TK,3, 14) 
een each ee 528 CALL KARTE (0,8,14) 

= . ar Eu a. 5S@g FÜR SZ=1 TO 21 

Power Joystick Zt. #. TI "65.- pm 548 IF INT(S(SZ)/IM)=T THEN 
nn m. FTZ en .- = S(SZ)I=E (SZ) +] 8% 

mrüstsatz Diskkontr. D 80T. 55. > 

es ee en, a 149.- DM 5508 NEXT S2 

Software: 56ß Az=32 

Mini Memary M 295.- DM 578 Sz=21 _ 

Textgraf D Due DM 588 FÜR SP=i1 T0 2 

_ en 598 FOR I=1 T0 5 

en Be a Freisliste an 688 IF T=INT(KISP,I)/18) THEN 
öffnungszeiten: Mo-Fr 18-18h Sa 9-13h K (SP, I)=K(SP ) I)+198 


618 NEXT 1 
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628 NEXT SP 

638 CALL SORTIERI(K(,)) 

648 FOR I=1 105 

658 CALL KARTE(K(1,DI,(T-1)% 

5+1,10) 

668 NEXT I 

678 M,STZ(1),5TZ(2)=» 

688 IF G=1 THEN CALL SPIEL(T 
‚PO,Kt,I,KFL,MI:: M=M+ (N=-1 
)2: CALL BILDSCHIRM(@,P(),®, 
1-4, 

698 IF M=-3 THEN GOTO 688 

7088 IF M THEN SP=2 GITO 9 
ER, 

718 CALL KEY(9,M,Z):: 
THEN ?1@ 

728 IF M=65 AND K(1,1)=188+T 

*18 AND NOT KFL THEN P(i)=Pt 
13+1 33 KFL=NOT KFL :: CALL 
BILDSCHIRM (G,P(),4,-1,6):: 6 
0T0 ?18 

738 IF M=83 THEN SP=1 ;:: 

L BILDSCHIRM(#,P(),3+ (G=1 
1,5):: GATO 93@ 

748 IF M<>?75 THEN 718 

758 IF 3=2 THEN CALL BILDSCH 
TEM(@,P(),1,-1,6):: CALL SPI 
ELIT,PO,K(,),KFL,W:S IF M 
THEN SP=2 :: CALL BILDSCHIRM 
(8,Pl),-1,2,6::: G0TO 939 

768 DISPLAY AT(12,16-1)%21 +1 
I)SIZE(TI: "WIEVIEL" 

778 IF G=2 THEN CALL KEY(0,A 
‚sTı:: IF ST<I OR A483 OR A> 
53 THEN 778 ELSE A=VAL (CHRS$( 
A))ıı GOTO 799 

788 CALL AUSTAUSCH(K(,),A) 

798 DISPLAY AT(12,(G6-2)%-21+ 
IISIZEITM:A 

898 CN G GOSUE 849,386 

318 IF G=1 THEN CALL KEY(@,A 
‚sT):: IF STCL OR AX48 OR A) 
53 THEN 818 ELSE A=VAL (CHRS( 
A)N 

828 CH 6 GOSUB 839,346 

838 CALL VCHAR(1,11,31,249):: 
CALL KARTE IG,48,14):: G0TO 
628 

848 FÜR L=1 T0 5 

858 IF SZ=& THEN CALL KARTE ( 
-1,8,14):: RETURN 

848 IF Ki2,L)C1@G THEN S (AZ) 


IF Z=9 


CAL 
1a 


=K(2,L):: AZ=AZ-I :: K(2,L)= 
5(52):: SZ=SZ-A1 
878 NEXT L :: RETURN 


888 FOR L=1 TO A 

898 IF SZ=# THEN CALL KARTE( 
-1,8,14):: RETURN 

988 CALL SOUND (199,119,1) 
918 CALL KEY(@,A,STI:: IF ST 
<1 OR A249 OR A>S53 THEN 918 


99 


ELSE A=VALICHRS(A)):: S(AZI= 
Kll,A):t AZ=AZ-1 :: Kti,A)=S 
(SZ):: SZ=8Z-1 :: CALL HCHAR 
((A-1)%5+1,11,62) 

928 NEXT L :: RETURN 

938 A=(NOT(G-2))+2 

948 IF A=2 THEN CALL AUSSPIE 
Li(Kt,),ASK):: GOTO 1959 
958 CALL SOUND199,119,1) 


948 CALL KEYI(S,KT,ST):: IF S 
T=& THEN 96% 

978 IF KT<£37 OR KT>53 THEN 9 
54 

988 KT=VAL (CHRS$S(KT)) 

998 IF K(1,KT)=-1 THEN 956 


18088 CALL KARTE(-1,5%#(KT-1)*+ 
1,10 

1818 ASK=K(1,KT) 

1828 CALL KARTE(ASK,13,14) 
1838 Kil,KT)=-1 

10848 CALL AUSSPIEL2(T,K(,),A 
SK,BGK):: GOTO 1158 


1058 CALL SOUND(188,119,1) 
10868 CALLl. KEY(@,KT,ST):: IF 
ST=6 THEN 1964 

1878 IF KT<49 OR KT>S2 THEN 
1058 

1088 KT=VALICHRS(KT)) 

1898 IF Kil,KT)=-1 THEN 1959 
1188 CALL KONTROLLIER(T,K(,) 
‚AEK,KT) 


1119 CALL KARTE (-1,5%1KT-1) + 
i,11) 

1129 BGK=K(1,KT) 

1138 CALL KARTEIEBGK,13,149) 
1149 Kii,KT!=-i 

1159 IF INT{IBGK/18)<NINT(ASK 
/A@S)AND INTIBSK/AS)<YIA+T TH 
EN EGK=-BGK 

1189 A=-tASK>EGK)KA-( (NOTLA- 
Z))+2)KLASK<IBSK) 

1178 STZIA)A=STZIA) + 

1188 CALL KARTE(-1,13,14) 
1199 CäAll. KARTE(G,SR(STZ(A)- 
17+1,A#12-4) 

12989 IF STZ(1)+STZ{t2)<5 THEN 
24% 

1218 IF STZ(5P)>2 THEN PSP) 
=PI(SP) +1 

1228 IF STZ(SP)=5 THEN P(SP) 
=P (SP) +1 

12398 IF STZ(SP)<3 THEN P(SP) 
=P(5P)-2 SP= (NOT (SP-2)) +2 
1248 LISPLAY AT(24, (SFP-1)x21 
+1 )SIZE(7): "SIEGER" 

1258 CALL BILDSCHIRM(9,P(),9 
8,6) 

1268 DISFLAY AT(21,22)5IZE(? 
): "NICH" 

1278 DISFLAY AT(22,22)SIZE(? 
):PEIN" 





1288 DISPLAY AT(23,22)SIZE (7? 
)S"SPIEL?" 

1298 CALL KEY(8,A,ST):: 
T=# THEN 1298 

1388 IF A=78 THEN STOP 
1318 IF A<>74 THEN 1288 
1328 6= (NOT (6-2)) +2 
1338 CALL BILDSCHIRM(-1,P0, 


IF S 


2,8,6) 
1348 G0TO 278 
1358 SUB AUSTAUSCH(K(,),A) 


1368 
1378 
N 
1388 
1399 
1499 
1418 
1428 
L 
1439 
1449 
1,19 
1458 CALL KARTE (K(2,KT),13,1 
4) 

1468 ASK=K(2,KT) 

1478 Ki2,KT)=-1 

1488 SUBEND 

1498 SUB AUSSPIELZ(T,K(,),AS 


A=& :: FOR L=1 T0 5 
IF K(2,L)<188 THEN A=Aht+ 


NEXT L :: SUBEND 

SUR AUSSFPIELIIK(,),ASK) 
=-1 :: KT=9 

FOR L=1 TO 5 

IF K(2,L)>M THEN M=Kt2, 
KT=L 

NEXT L 

CALL KARTE (-1, KT-1)%5+ 


K,BGK) 
1508 M=208 :: KT=@ 
1518 FOR L=1 10 5 


1528 IF K(2,L)<M AND Kt2,L)> 
ASK AND INT(K(2,L)/1@)=INTIA 
SK/IEITHEN M=K(2,L):: KT=L 
1538 NEXT L 

1548 IF KT=@ THEN 169% 

1558 CALL KARTE(-1, (KT-1)%5+ 
1,19 
1568 
4) 
1570 
1588 
1598 


CALL KARTE (K(2,KT),13,1 


BGK=K (2,KT) 

K(2,KT)=-1 

SUBEXIT 

1688 FOR L=1 T0 5 

1618 IF M>K(2,L)AND INT(K(2, 

LY/I@)=INT(ASK/ILAYTHEN M=K (2 
‚L)st KTel 

1626 NEXT L 

1638 IF KT>@ THEN 1558 

1648 FOR L=1 10 5 

1658 IF K(2,L)<M AND INT(K(2 
‚L)/1@)=18+T THEN M=Kt2,L):: 
KT=L 
1668 
1678 
1688 
1698 FOR L=1 T0 5 

1788 IF M-INTEM/IMKIA>KI(2,L 
)-INTIK(2,1.)/1@)1Q AND Kt2, 
1.Y>-1 THEN M=K(2,L):: KTel 


NEXT L 
IF KT>@ THEN 1538 
M=9 


100 


1718 NEXT L :: 
1728 SUBEND 
1738 SUB KONTROLLIER(T,K(,), 
ASK,KTA) 

17948 BCK=Kt1,KTA) 

1758 IF RGK>ASK AND INT(EGK/ 
I9)=INT(ASK/I@)THEN 1919 
1768 M=266 KT=g FOR L= 
1 T05 

1778 IF INT(K(1,L)/1Q)=INT(A 
SK/A®)AND KIA,LI<SM AND Kti,L 
)>ASK THEN KT=L M=K(1,L) 
1788 NEXT L 

1798 IF KT<>@ THEN 1998 

1882 IF INT(BGK/A@}=INT(ASK’ 
IF)THEN 1918 

1818 FOR L=1 T0 5 

1828 IF INT(K(1,L)/I@)=INT(A 
SK/IM)AND Kii,L)<M THEN M=Kt 
1,1L):: KT=L 

1838 NEXT L 

1848 IF KT<>8 THEN 19908 

1858 IF INT(BGK/IR)=19+T THE 
N 1918 

1868 FOR L=1 T0 5 

1878 IF M>K(1,L)IAND INTIK(L, 
L)/I@3=194T THEN M=Kti,L):: 
KT=L 
1888 
1898 
1908 
1918 
1928 
1938 
1949 
1958 
1968 


GOTO 1559 


NEXT L 

IF KT=@ THEN 
KTA=KT 
SLIREND 

SUR VORBEREITUNG (G) 

FOR 82Z=95 TO 143 

READ S$ 

CALL CHAR !SZ,S$) 

NEXT SZ 

1978 Pi1),P(2)=@ 

1988 CALL BILDSCHIRML-1,P(), 
2,2,6) 

1998 FOR I=8 TO 14 

20808 CALL COLOR(I,2,16) 

2818 NEXT I 

2028 CALI. COLOR(13,?,16) 
20838 CALIL. COLOR (9,1,12) 

20848 DATA AASSAASSAASSAASS, 9 
B3F 3FOROABOAAGE , ASOFOFAFOFDF 
BF@B , BGFAFOZG3LCECHAR , 20 , BAR 
FOF303926300F ‚OF 302630 390FOF 
28 

2058 DATA BACHCA3B3A3A39C9,C 
G29422393AC9CAAR , DOOF AF 3039030 
300F , BOFOWOOCDAHDFDFOR , BUCOICH 
30243820F 0, FR3G3ICDCAIAHUHK 
2068 DATA OM3F3FO00AL99903,0 
38C4C30392F2F 28 , BDFOFO3035CH 
C92G , DOBOHADORDF AF BAR , MBOFÜF 
303630363F , 3F 30383030393998 
2078. DATA BACHCAHSASA3A3GFR,F 
036303070430304% , O83F3FOCHCEC 
ACHF ,BFOCBCACHTLIF3FRG , BICHCH 


1918 


3530303509, C8383039398C9C990 

2888 DATA SO3F3FOCOCSICHCHT, DO 
CACICHCHCIF3IFOO , BICHCH3IG393Y 
3932, 30303239 385C9C990 , 9030230 
3963833333C ‚30.333330 393932999 

20898 DATA 263839CAC9909009,8 
SEBGSCHCAHTG3C0S , EUALS3SQ7OFIF 
3F?F,?F3FIAFOFA?7539109, B2089CD 
ESFOFSFCFE,FEFCFSFOEDCASGER 

2188 DATA BOORABWIS3SC3ZESFIF,1 
FAFITAZIGLAAGADG , BESBGELSSICTE 
FCFC,FSFBEICHSLADEGNG, IH9HL1A3 
Q@?aFAF3F3F,3F3VLPOLALOISIOEO 

2118 DATA A9SSCSHESFAÄFSFCFC,F 
CBCISBGEISICHGA , DAHLATO7ASI1 
397F,?F39112101019399, 99865C9 
ESCAHSSICFE,FEICBSEGSISACHYN 


2128 SUBEND 

2138 SUB BIL.DSCHIRM(CF,PUO,K 
1,K2,6) 

2148 IF CF THEN CALL CLEAR : 


: CALL VIHAR(1,198,31,336) 
21598 DISPLAY AT(1,1;5S1ZEt?): 
"SPIELER" 

2168 DISPLAY AT(1,22)SIZE(?) 
ı "SPIELER" 

21798 DISPLAY AT(2,1)SIZE!2): 
a4" 

2188 DISPLAY AT(2,22)E1ZE(2) 
42" 

2198 DISFLAY AT(4,1Y!5IZE(7)! 
"PUNKTE: " 

2288 DISPLAY AT(4,22)SIZE(?) 
"PUNKTE: " 

2218 DIEFLAY AT(5,1)SIZE(?): 
Fii) 


2228 TISPLAY AT(5,22)35SIZE (7) 
:P(2) 
2238 IF G=i1 THEN DISFLAY AT( 


7,1YSIZE(5S):"GESER" :: DISPL 
AY AT(?,22}SIZE(?):"AUSSP." 
2248 IF G=2 IHEN DISPLAY AT( 
?,22)STZE (5): "GEBER" DISP 
LAY AT(?,1)SIZEL?7}: "AUSSP." 
2259 IF Ki=1 OR K2=1 THEN DZ! 
SPLAY ATL9,ABS({Ki=i)+(Kz=1) 
+22) )SIZEL?): "KARTE" 

2268 IF Kki1=2 GR K2=2 THEN DI 
EPLAY AT!9,ABSt(Ki=2) + (K2=2) 
K22Y)SIZEIdI:2 "SPIEL!" 

2278 IF Ki=3 OR K2=3 THEN DI 
SPLAY. AT(9,ABSt (Ki1=3) +(K2=3) 
#22))SIZE(TIS"ICH"” ©: DISPLA 
Y ATIIM,ABS((K1=3) +(K2=3)%22 
Y)SIZEI?): "SPIELE" 

2288 IF Ki=4 OR K2=4 THEN DI 
SPLAY AT(9,ABSt(Ki=4) +(K2=4) 
#22))SIZELt?7): "MELDE" DISP 
LAY AT(19,ABS( (Ki1=4) +(K2=4)% 
22))SIZE(?7): "KOENIG!" 

2298 IF K1=8 THEN DISPLAY AT 
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(P,1YSIZELPIE"" 3% DISPLAY A 
TtI@,1)SIZEI(F):"" 

2308@ IF K2=8 THEN DISPLAY AT 
(9,22)SIZE(T):"" 3: DISPLAY 
ATLIA,2ZISIZEI(TI:" 
2318 SUBEND 

2320 SUB KARTE (C,Z,S) 

2339 S=S+2 

2348 IF C<=@ THEN 2488 

2358 FC=INT(C/18) -INT(C/128) 
*18 
2360 
2378 
2388 
2399 
2499 
2410 
2428 
) 
2438 
2449 
) 
2459 
2468 
) 
2478 
2489 
=31 
2499 
2588 
25180 
2529 
2539 


KC=SC-FCHIIH+ISOK(C>1O0) 
FC=124+FCx4 

KC=92+KCH4 

CALL HCHAR(2Z,S,FC) 

CALL HCHAR (Z,S+t1,FC+2) 
CALL HCHAR (Z+1,S,FC+1) 
CALL HCHAR (Z+1,S+1,FC+3 


CALL 
CALL 


HCHAR (Z+2,5,KC) 
HCHAR (2+2,5+1,KC+2 


CALL 
TALL 


HCHAR (Z+3,5,KC +1) 
HCHAR (2+3,5+1,KC+3 


SUBEXIT 
IF C=8 THEN C=95 ELSE C 


CALI. VCHAR (Z,8,C,4) 

CAIL VCHAR(Z,S+1,C,4) 

SUBEND 

SUB SORTIERI(K(,)) 

FOR Ii=1 TO 4 

2548 FOR 12=!1+1 10 5 

2558 IF K(1,„11)<Kt1,1IZ2)THEN 

H=K(1,12):: K(1,1I2I=Kt1,11): 
: K(1,I1)=H 

2568 NEXT 12 

2578 NEXT I1 

2588 SIIBEND 

2598 SUB SPIEL(T,P(},Kt,),KF 

L,M) 

2608 T2,KZ,DZ,BZ=@ 

2618 FOR L=1 T0 5 

2628 IF K12,L)=198+T%19 AND( 

NOT (KF2)) THEN 2748 

2638 KI=INT(K(2,L)/1@) 

2648 IF KI=!@+T THEN TZ=TZ+1 
:: GOTO 263% 

2658 IF K(2,L)-KIX12=8 THEN 

KZ=KZ+1 GOTO 2688 

2668 IF Ki2,L)-K1%1@=7 THEN 

DZ=D2Z+1 GOTO 2689 

2678 IF K(2,L)-KIX1@=6 THEN 

BZ=EZ+1 :: GOTO 26899 

2688 NEXT L 

2698 IF TZ>=3 THEN M=-1 

070 2738 

270@ IF TZ>=2 AND KZ=2 THEN 

M=-1 GCTO 2738 

2718 IF KZ+DZ+BZ>=4 AND KZ+D 


6 





=E 


2>=2 
2728 
2738 
2746 
27566 
2768 
2778 
2788 


THEN M=-1 :: 
M=@ 

SUBEXIT 

IF KFIL THEN P(l)=Ptt)-i 
Pi21=Pt2)+1 

M=-3 

KFZ,KFL=-1 

SLEEND 


GETO 


r. 
zrED 





BÖRSE 


Verk. Centr. Schnittst. Kabel (neu) 60,— Drucke 
List. Bas + XBas. f. 10,— W. Bekcer Einst. Str. 11 
8012 Ottobrunn 





guten Pgm’s ab Fr. 15,— NEU !! Protected ent- 
fernen, Listings von Ihren Pgm’s, Kopien von 
Disks mit beschriebenem Sektor Null, etc. Gra- 
tisinfo bie J. Brönnimann, Ausmattstr. 5, CH- 
4132 Muttenz 





TOPGRAFIK-Spiele für TI-99. Suche Software 
für Minimem. (Handbuch). Verk. Spiel-Module. 
Nach 8 Uhr Tel. 02841/57 971 





Ti99/4A mit Zubehör komplett o. einzeln zu 
verkaufen. Exp.-Box, Karten: 48kRAM, RS232 
Centronics, Controler 2 Floppylaufw., Speech- 
Synth. Ext. basic, Ed. Assembler, TI-Writer, 
viel Softw. VB 1500 kmpl. Tel.: 0511/75 76 24 
Zu verkaufen: 

2 TI99/4A (davon 1 leicht defekt (ROM) mit 
Recorder + Kabel, Ext. Basic sowie 16 weitere 
Module zu verkaufen! Auch einzeln! Sowie Joy- 
stick etc.! Komplettpreis 1200,— DM o. Gebot! 
Tel. 07022/61950 

Verk. TI99/4A + Ext. + 6 Module + Rec. Kabel 

+ Joysticks: 478 Lippstadt, Bastionstr. 45, Hof- 
knecht: (580,— DM) 

Tausche Progr. in Ex.B auf Dsk. Suche RS232 
Karte od. E/AMod. geg. Adv. Mod. m. Il Kas. u.a. 
A.Oest 06408/7650 

Raum Langenfeld M/TG Lied des TI-Workshop 
sucht Anwender Prg. Tausch usw. Horst Nietowski 
02173/15395 

UNHEIMLICH — Der Weg ins Ungewisse: * THE* 
MASK*OF*TERROR* Das 3-tlg. GRAPHIC- 
SUPER ADVENTURE! Durch seine verschlunge- 
nen Pfade bis jetzt ungelöst. Jetzt auch in dt.! 

3 Zehner im Brief an: H. Hambach, Regensb. 

-Str. 236, 8500 Nürnberg 30. IN XBASIC! 

** ALIEN SOFTWARE PRESENTS: ** 
SYNTHY MASTER, der beste Musikynthes. für 
den TI+XB!! Der kann Alles: z.B. Vibrator, Ge- 
räusche, 3-, 2- und einf. Klänge Wiedeholg., Spei- 
chern, Laden, Drucken usw. Der Bildschirm wird 
zur Orgeltast! Für nur 15 DM bei H. Hambach 
Regensb.-Str. 236, 8500 Nürnberg 30 

** ALIEN SOFTWARE PRESENTS ** 
Programme, die fast profess. Ansprüchen genügen! 
Feinste Menütechnik! Anwenderfrdl. !! Textv., 
Datei, Mathematik, Finanzberater, Tagebuch, 


HOT GAMES! Info 80 Pf.: H. Hambach, Regensb.- 


Str. 236, 85 Nürnberg 


10 REMERRRRKRIKTNIKTTTKIHH 


il REM* * 
12 REM% CATCH WITH CAR * 
13 REM%* Copyright by * 
14 REM% Dirk Junghans * 
15 REM* * 
16 REM* * 
17 REM%Benoetigte Geraete* 


18 
19 
23 


REM* T199/4A Konsole * 
REM* * 
REM% Speicherbelegung %* 


24 REM* 6762 Bytes * 
25 REMRKKKRKKKKRKIKIITTIHNK 
26 REM 


160 RANDOMIZE 

170 REM DEFINE CHARACTERS 
180 DATA 0003060606060606, 04 
CA4440206EB8ABA, O00000F0888BE 
424,7C80C060301BOFO1 ,EAEAZA2 
AZAZAZEA1,24640482862828408 
190 DATA 01, 9ECCKO71311COFO3 
‚304080000080 

200 CALL CHAR (136, "427ESA1B1 
85A7EA42") 

210 CALL CHAR (137, "O0OE?427E? 
E42E700") 
220 CALL 
244340") 
230 CALL 
663042") 
240 CALL 
AS183C") 
250 CALL 
GEASEHA") 
260 CALL CHAR (105, "OOFFAASSA 
ASSFFOO") 

270 CALL CHAR (112, "18183CE7E 
7301818") 

280 CALL CHAR (106, "808080808 
0808080") 

290 REM VORSPANN 

300 RESTORE 180 

310 FOR I=144 TO 152 

320 READ A$ 

330 CALL CHAR (I1,A®) 

340 NEXT I 

350 CALL CLEAR 

360 CALL SCREEN(10) 

370 PRINT TAB(8)5 "DIRK JUNGH 
ANS ":5 5 :TAB(9) , "PRAESENTIE 
RT":TAB(11)5"FUER DEN" 

380 PRINT : : :TAB(11)5"T199 
AA": STAB(IS)IE"VON!: 5:5 
390 PRINT TAB(13) 5CHR$(144) 35 
CHR$ (145) 5SCHRS (146) : TAB(13) 3 
CHRS$ (147) I CHRS (148) JSCHRS (149 


CHAR (96, "0202241818 
CHAR (97, "C324187ES5A 
CHAR (33, "3C18ASDBDB 


CHAR (104, "S66A566A5 


) 

400 PRINT TAB(13)5CHRS (150) 3 
CHRS(ISL)SCHRS(1S2): : : 5 
410 CALL SOUND (300, 262,2) 
420 CALL SOUND (900,349,2) 





430 CALL SOUND(100,329,2) 
440 CALL SOUND(100,349,2) 
450 CALL SOUND(100,392,2) 
460 CALL SOUND (300,440,2) 
470 CALL SOUND (300,440,2) 
480 CALL SOUND(300,440,2) 
490 CALL SOUND(100,440,2) 
500 CALL SOUND(100,466,2) 
510 CALL SOUND(100,392,2) 
520 CALL SOUND (450, 440,2) 
530 CALL SOUND(150,392,2) 
540 CALL SOUND (300,349,2) 
550 FOR I=1 TO 500 

560 NEXT I 

570 FOR I=1 TO 20 

580 PRINT 

590 NEXT I 

600 CALL SCREEN(11) 

610 Z=10 

620 S=2 

630 QS="XHHHKRRRCATCH WITH CA 
RER" 

640 GOSUB 2810 

650 FOR I=1 TO 30 

660 IF 1>13 THEN 700 

670 CALL SCREEN(I+1) 

680 CALL SCREEN(1+3) 

690 CALL SCREEN(I+2) 

700 CALL SOUND(100,-7,1,440, 
1,190,1,880,1) 

710 NEXT I 

720 CALL CLEAR 

730 WAGEN=3 

740 PUNKTE=100 

750 R=1 

760 ANJ=O 

770 DD=0 

780 CALL SCREEN (13) 

790 CALL COLOR(1,11,15) 
800 CALL COLOR(9,10,15) 
810 CALL COLOR(10,2,15) 
820 CALL COLOR(11,8,15) 
830 CALL COLOR(14,6,15) 
840 CALL VCHAR(1,31,106,24) 
850 Q$="PUNKTE*" 

860 Z=3 

870 $=32 

880 GOSUB 2850 

890 GOSUB 2890 

900 CALL VCHAR(19,31,137,WAG 


910 D=24 

920 J=15 

930 CALL HCHAR(D,J,136) 
940 CALL KEY(2,K,ST) 
950 IF ST=0 THEN 940 
960 GOSUB 2690 

970 CALL JOYST(2,K,ST) 
980 IF K)O THEN 1310 
990 IF K<O THEN 1450 
1000 IF ST>O THEN 1030 


103 


1010 
1020 


IF ST<{O THEN 1170 
ON R GOTO 1030,1170, 131 


0,1450 


1030 
1040 
1050 
1060 
1070 
1080 
1090 
4100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
i410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 


R=1 

L=136 

M=D 

N=J 

0=104 

D=D-1 

IF D<1 THEN 1590 
CALL GCHAR(D,J,U) 
IF U=32 THEN 1140 
GOSUB 3310 

GOTO 970 

CALL HCHAR (D,J, 136) 
CALL HCHAR (D+1,J,104) 
G0TO 970 

R=2 

L=136 

M=D 

N=J 

0=104 

D=D+1 

IF D>24 THEN 1590 
CALL GCHAR(D,J,U) 
IF U=32 THEN 1280 
GOSUB 3310 

GOTO 970 

CALL HCHAR(D,J,136) 
CALL HCHAR(D-1,J,104) 
G0TO 970 

R=3 

L=137 

M=D 

N=J 

0=105 

I=J+1 

IF J>30 THEN 1590 
CALL GCHAR(D,J,U) 
IF U=32 THEN 1420 
GOSUB 3310 

G0TO 970 

CALL HCHAR (D,J, 137) 
CALL HCHAR(D,J-1,105) 
GOTO 970 

R=4 

L=137 

M=D 

N=J 

0=105 

I=J-1 

IF J<i THEN 1590 
CALL GCHAR(D,J,UW) 
IF U=32 THEN 1560 
GOSUB 3310 

GOTO 970 

CALL HCHAR (D,J, 137) 
CALL HCHAR (D, J+1,105) 
G0TO 970 

FOR I=1 TO 30 

CALL SOUND(-65,119,1,-5 


‚1,117,1,115,D) 


1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 


NEXT I 
GOSUB 3000 

IF D<1 THEN 1670 
IF D>24 THEN 1690 
IF J<i THEN 1710 
IF J>30 THEN 1730 
D=1 
GOTO 
D=24 
GOTO 
JI=1 
GOTO 
J=30 
CALL HCHAR(D,J,32) 
D=INT (RND%24) +1 

J=INT (RND*30) +1 

CALL GCHAR(D,J,ZZ) 

IF Z2<>32 THEN 1750 

IF J<25 THEN 1800 ELSE 


1740 
1740 


1740 


R=3 
CALL HCHAR (D,J,137) 
GOTO 940 

CALL HCHAR(D,J,L) 

CALL HCHAR (M,N,O) 

CALL SOUND(100,440,1,55 


0,1,660,1) 


1860 


00,1, 


1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2130 
2140 
2150 
2160 


CALL SOUND(100,990,1,10 
1010,1) 
PUNKTE=PUNKTE+211 
GOSUB 2890 

GOTO 2690 

CALL HCHAR(D,J,L) 
CALL HCHAR (M,N,O) 
TON=220 

FOR I=si TO 3 

CALL SOUND(100,TON,1) 
TON=TON+1 

NEXT I 
PUNKTE=PUNKTE+311 
GOSUB 2890 

G0TO 2690 

CALL HCHAR(D,J,L) 
CALL HCHAR(M,N,O) 
CALL SOUND(100,220,1) 
CALL SOUND(100,247,1) 
CALL SOUND(100,294,1) 
CALL SOUND(100,330,1) 
FOR I=1 TO 6 
DJi=DJi+1 

IF DJ1>? THEN 2150 
X=INT (RND#24) +1 
Y=INT(RND%30) +1 

CALL GCHAR(X,Y,F) 

IF (F=105)+(F=104) THEN 
ELSE 2070 

CALL HCHAR(X,Y,32) 
CALL SOUND(100,440,1) 
DJ1=0 

NEXT I 


2440 
’) 
2450 


GOTO 
CALL 
CALL 
CALL 
CALL 
CALL 


2690 

HCHAR (D,J,L) 
HCHAR (M,N, 0) 
SOUND (100, 262,1) 
SOUND (100,524,1) 
SOUND (100,392,1) 
CALL SOUND(100,440,1) 
CALL SOUND(100,344,1) 
PUNKTE=PUNKTE +90 
GOSUB 2890 

FOR I=1 TO 3 

DI=DJ+1 

IF DJ>14 THEN 2360 
X=1INT (RND#24) +1 

Y=INT (RND%30) +1 

CALL GCHAR (X,Y,F) 

IF (F=104) +(F=105) THEN 
ELSE 2280 

CALL HCHAR (X,Y,32) 
CALL SOUND (100,440,1) 
DJI=0 

NEXT I 

GOTO 2690 

CALL HCHAR (D,J,L) 
CALL HCHAR (M,N,O) 
CALL SOUND(100,-6, 1,200 


ANJ=ANJ+I 
IF ANJ>15 THEN 3040 
FOR I=1 TO LEN(STRS(ANJ 


CALL HCHAR (1,30+1,ASC (S 


EGS(STRS(ANJ),I1,1))) 


2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
137) 
2590 
2600 
2610 
2620 
2630 
2640 
2640 
2650 
2660 
2670 


NEXT I 
PUNKTE=PUNKTE-100 
GOSUB 2890 

G0TO 970 

DD=DD+1 

IF DD>1 THEN 2950 
RESTORE 2670 

FOR I=1 TO 13 

READ AB,CD 

CALL SOUND(AB,CD,1) 
NEXT I 
WAGEN=WAGEN+1 

CALL VCHAR(18+WAGEN, 31, 


FOR I=1 TO 25 
X=INT (RND%24) +1 
Y=INT(RND%$30) +1 

CALL GCHAR(X,Y,U) 

IF (U=104)+(U=105) THEN 
ELSE 2600 

CALL HCHAR (X,Y,32) 

NEXT 1 

G0TO 2950 

DATA 200,330,200,330, 20 


0,330, 200,349, 200, 262, 200,33 
0,500, 294,200,311,200,311,20 
0,311,200,349, 300,277 


2680 
104 


DATA 500,247 





26970 
2700 
2710 
2720 
2730 
2740 
2730 
2760 
2770 
2760 
2790 
2800 
2810 
2820 


z6="'a!p" 

Z=INT (RND#4) +1 

V=ASC (SEGS(ZE,Z,1)) 
C=INT (RND*24) +1 

G=INT (RND%*30) +2 

CALL GCHAR(C,G,E) 

IF E<>32 THEN 2720 
CALL SOUND (100,330, 1) 
CALL SOUND (100,330,1) 
CALL SOUND (210,500, 1) 
CALL HCHAR(C,6,V) 
RETURN 

FOR I=1 TO LEN(9#) 
CALL HCHAR (Z,S+1,ASC (SE 


6861(98,1,1))) 


2830 
2840 
2850 
2860 


NEXT I 

RETURN 

FOR I=1 TO LEN(8$) 

CALL VCHAR (Z+1,8,ASC (SE 


68(0$,1,1))) 


2870 
2880 
2890 
ELSE 
29700 
2910 
2920 
2930 
2940 
[e) 

2950 
2960 


KTE)) 


2970 


NEXT I 

RETURN 

IF PUNKTE<=0 THEN 2900 
2940 

PUNKTE=0O 

CALL VCHAR(10,32,32,5) 
CALL VCHAR (10,32,48) 
GOTO 3000 

IF PUNKTE>1500 THEN 250 


CALL VCHAR (10,32,32,5) 
FOR I=1 TO LEN(STRS$S(PUN 


CALL VCHAR(10+1,32,ASC( 


SEGS(STRS(PUNKTE),IT,1))) 


2980 
29970 
3000 
3010 
3020 
32) 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
[e) 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
GH) 


NEXT I 

RETURN 

WAGEN=WAGEN-1 

IF WAGEN<=0 THEN 3040 
CALL VCHAR(19+WAGEN, 31, 


RETURN 

CALL HCHAR (10,12,32,9) 
A$="GAME OVER" 

Z=10 

$S=12 

GOSUB 2810 

IF PUNKTE>HIGH THEN 311 


G0OTO 3170 

HIGH=PUNKTE 

TON=110 

FOR I=i1 TO 3 

CALL SOUND(100,TON, 1) 
TON=TON+110 

NEXT I 

CALL HCHAR (15,5,32,14) 
Zz=15 

S=5 

@$="HIGHSCORE "&STRS$ (HI 


3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3270 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 


GOSUB 2810 

CALL HCHAR (20,5,32,18) 
Z=20 

S=5 

Q$="NEUES SPIEL 

GOSUB 2810 

CALL KEY(3,K,ST) 
IF K=74 THEN 290 
IF K=78 THEN 3300 ELSE 


(J/ND” 


STOP 

IF U=96& THEN 1830 
IF U=97 THEN 1900 
IF U=33 THEN 2000 
IF U=112 THEN 2180 
IF U=104 THEN 2390 
IF U=105 THEN 2390 
END 


Die nächste 
TI REVUE erscheint 
am 28. Oktober 





Disketten / Zubehör - Einführungsangebot 

























Stück 10.100.300 
[L__] mo 5%” 1D Standard 305 285 2,55 
[L__] mo 5%” 1D Quality 375 350 3,05 
[L__] mD 5%” 2D Quality 450 420 375 
[__] mo 51” 20 96 TI 660 585 5,20 
[___] MD 51%” HD Maxell 12,60 11,75 10,90 
[__] MD 5%” 1D Maxell 575 54 475 
[__] MD 51%” 2D Maxell 835 810 695 
[L__] mo 3%” 10 SONY 1220 1045 9,36 
[L__] mo 3%” 20 sony 14,60 13,60 12,20 
UL__] MD 3%” 1D Maxell 80 70  - 
[L__] MD 3%” 2D Maxell 1290 1060  - 
[L_] Diskettenlocher 13,98 - - 
[L_] V24-Kabel Kunden spezifisch 58,50 - - 


Anderes Zubehör auf Anfrage! Wir fertigen Ihnen jedes EDV-Kabel preiswert 
nach Ihren Wünschen! Alle Preise sind Nettopreise in DM/Stuck 
Mindestbestellwert DM 60,-. Lieferung auf Rechnung ab DM 300,— 

Bei Neukunden und Beträgen unter 300,- DM Lieferung per NN oder WK. 


Name 





Or 










Datum 





Unterschnit/Firmenstempel 
Einfach Anzeige ausschneiden und als Bestellschein einsenden an 
MICHAEL MEISTER EDV-Marketing 
Rheinstraße 47 : 7500 Karlsruhe 21 
Tel. (07 21) 55 46 01 (Frau Staack) 
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10 REMKRRRRKRKRKRKTTIITITINR 
11 REM 

12 REM* SKYDRIVER 
13 REM% Copyright by 
14 REMX B.Jaehrling 
15 REM* 

17 REM%Benoetigte Geraete* 
18 REM% T199/4A Konsole * 
19 REM * 
23 REM% Speicherbelegung * 
24 REM* 9871 Bytes * 
25 REMIRRRRRKKKKNTTRTTTTNR 
26 REM 

160 CALL CLEAR 

170 CALL SCREEN (4) 

180 REM ZEICHENDEFINITION 
190 REM WOLKEN 

200 CALL CHAR (40, "00000607?0F 
3B?7F77”") 

210 CALL CHAR (41, "0078BOSZCE 
FFFSDC") 

220 CALL CHAR (42, "663DOC") 
230 CALL CHAR (43, "70C87080") 
240 CALL CHAR (152, "000000000 
3020F0?") 

250 CALL CHAR (153, "01023864E3 
FFFFF?F") 

260 CTALL CHAR (154, "O4651F86BF 
DFFBFFF") 

270 CALL CHAR (155, "SOESFC914 
ODSE8?C") 

280 CALL CHAR (156, "O71F?BEE? 
DOCO2") 

290 CALL CHAR (157, "F?7B3FFSFS 


xxx 


3E17?06") 

300 CALL CHAR (158, "FFFFDFFFPY 
EDAS4") 

310 CALL CHAR (159, "FABSECBSE 
641E420") 


320 REM BAUEME 

330 CALL CHAR (136, "181818307 
EBDSC?E") 

340 CALL CHAR (137, "000101030 
6000103") 

350 CALL CHAR (138, "FFFFFFFFF 
FFFFFFF®) 

360 CALL CHAR (139, "008080006 
00080C0") 

370 CALL CHAR (140, "03170E000 
30F 1F33") 

380 CALL CHAR (141, "COE87000C 
OFOFBCC") 

390 CALL CHAR (142, "27070FOF1 
FSFFF?F") 

400 CALL CHAR (143, "E4EOFOFOF 
SFCFFFE") 

410 CALL CHAR (144, "303030303 
CSC7EFF") 

420 REM HUBSCHRAUBER 

430 CALL CHAR (130, "000005060 
F1703") 


440 CALL CHAR (131, "00BFO003F 
FFFFFO?") 

450 CALL CHAR (132, "OOFESOEOL 
00888F0") 

460 CALL CHAR (133, "030907" ) 
470 CALL CHAR (134, "EO48F0") 
480 REM LANDEMARKE 

490 CALL CHAR (112, "?FFFFF?F" 
) 

500 CALL CHAR (113, "FFFFFFFF" 
) 

510 CALL CHAR (115, "FEFFFFFE" 
) 

520 REM SPRINGER 

530 CALL CHAR (120, "18187EBD3 
244281") 

540 CALL CHAR (122, "3C7EFFC34 
22418") 

550 FOR I=3 TO 8 

560 CALL COLOR(I,2,4) 

570 NEXT I 

580 PRINT TAB(T)5"SKY-D 
IVER"L ı ı ıı 

590 PRINT TAB(14)5"von": : ı 


600 FRINT TAB(?); "Burkhard J 
aehrling": : 2 2: 1 2.195 

610 PRINT TAB(16); "Erkrath, 
1984": ; 

620 CALL HCHAR (6,9,61,17) 
630 DATA 300,350,200,330,200 
‚350,200,370,200,370,200,350 
‚200,370,200,390 

640 DATA 200,410,350,390,200 
‚370,200,370,450,390 

650 FOR K=1 TO 2 

660 FOR I=i1 TO 13 

670 READ A,B 

680 CALL SOUND(A-20,B,0,B-2, 
5,B+2,5) 

690 NEXT I 

700 FOR L=1 TO 70 

710 NEXT L 

720 RESTORE 630 

730 NEXT K 

740 DATA 300,390,200,390,200 
‚350,200,350,200,290,200,290 
‚200,250,200,310,200,280,600 
‚250,200,200 

750 RESTORE 740 

760 FOR I=i TO 10 

770 READ A,B 

780 CALL SOUND(A-30,B,0,B-2, 
5,E+2,5) 

790 NEXT I 

800 RESTORE 630 

810 FOR I=1 TO 23 

820 READ A,B 

830 CALL SOUND(A-30,B,0,B-2, 
5,B+2,5) 

840 NEXT I 


850 CALL CLEAR 


850 PRINT " KURZE SPIELANL 
EITUNG ?"i : 5; 
PRINT TAB(12);,"LJ5NJ": & 


870 


880 CALL KEY(0,K,S) 

890 IF S=0 THEN 880 

900 IF K=78 THEN 930 

910 IF K<>74 THEN 880 

920 GOSUB 4060 

930 CALL CLEAR 

940 SP$="BITTE SPIELART WAEH 
LEN: " 

950 SA$="15 LEICHTERES SPIEL 
n 

960 SB$="2j ETWAS SCHWIERIGE 
R" 

970 FOR I=1 TO LEN(SP$) 

980 CALL HCHAR(12,4+1,ASC (SE 
6$(SP$,1,1))) 

990 NEXT I 

1000 FOR I=1 TO LEN(SA$) 
1010 CALL HCHAR(15,6+1,ASC(S 
EG$(SA$,I,1))) 

1020 NEXT I 

1030 FOR I=1 TO LEN(SB$) 
1040 CALL HCHAR(17,6+1,ASC(S 
EG$(SB$, 1,1))) 

1050 NEXT I 

1060 CALL KEY(0,K,8) 

1070 IF S=0 THEN 1060 

1080 IF K=49 THEN 1120 

1090 IF K<>50 THEN 1060 

1100 SP=2 
1110 60T0 
1120 SP=1 
1130 CALL CLEAR 

1140 CALL SCREEN (2) 

1150 FOR I=3 TO ? 

1160 CALL COLOR(1,15,1) 

1170 NEXT I 

1180 CALL COLOR(2,15,8) 

1190 CALL COLOR(16,15,8) 
1200 CALL COLOR(14,13,8) 
1210 CALL COLOR(15,14,4) 
1220 CALL COLOR(13,7,8) 

1230 CALL COLOR(12,2,8) 

1240 CALL COLOR(11,7,4) 

1250 S$="SCORE" 

1260 FOR I=1 TO LEN(S$) 

1270 CALL HCHAR (2,3+1,ASC (SE 
6$(5$,1,1))) 

1280 NEXT I 

1290 M$="MEN" 

1300 FOR I=1 TO LEN(M$) 

1310 CALL HCHAR(2,15+1,ASC(S 
EG$(M$,1,1))) 

1320 NEXT I 

1330 P=0 

1340 MEN=5 

1350 BZ=0 


1130 


107 


1490 
1500 
1510 
1520 
) 


1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 


GOSUB 3920 

GOSUB 4000 

IF SP=1 THEN 1410 
CALL COLOR (12,2,2) 
CALL HCHAR (2,23,121,7) 


c 
ONO0000 


BDDATC<Z 
oO 0 


rn 


CALL 
CALL 
CALL 
CALL 


COLOR (9,8,8) 
HCHAR (4,1,97, 608) 
COLOR(10,4,4) 
HCHAR (20, 1,104, 160 


FOR I=1 TO 100 
NEXT I 

RANDOMIZE 

REM WIND J/N 

IF SP=1 THEN 1810 
WM=INT(RND*3) +1 

IF WM=2 THEN 1630 
IF WM=3 THEN 1650 
WM$="WIND O0" 

GOTO 1660 
WM$="WIND <<” 

GOTO 1660 
WM&="WIND >>" 

FOR I=1 TO LEN(WMS$) 
CALL HCHAR (2,22+1,ASC(S 


EG$S (WM$,1,1))) 


1680 
1690 
1700 
1710 
1720 
1730 
1740 


1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 


IF wWM=1 THEN 1730 

IF wM=3 THEN 1720 

CALL SOUND (100,280,0) 
GOTO 1730 

CALL SOUND(100,600,0) 
NEXT I 

REM POSITION LANDEMARKE 


IF WM=1 THEN 1810 

IF WM=2 THEN 1790 
A=INT (RNDX22) +8 

GOTO 1820 

A=INT (RNDX23) +3 

GOTO 1820 

A=INT (RND*24) +4 

CALL HCHAR (24,A,113) 
CALL HCHAR (24, A-1,112) 
CALL HCHAR (24, A+1,115) 
REM POSITION BAEUME 
FOR I=1 TO 6 

B=18 

C=INT (RND$29) +2 

CALL GCHAR(B,C,2) 

IF 2<>97 THEN 1870 
CALL GCHAR(B,C-1,2) 

IF 2Z<>97 THEN 1870 
CALL GCHAR (B,C+1,2) 





IF Z<>97 THEN 1870 
F=24 

CALL GCHAR(F,C,@) 

IF @<>104 THEN 1870 
CALL GCHAR(F,C-1,@) 

IF @<>104 THEN 1870 
CALL GCHAR(F,C+1,0) 

IF 8<>104 THEN 1870 
CALL HCHAR(B,C,138) 
CALL HCHAR (B+1,C,138) 
CALL HCHAR (B+2,C,144) 
CALL HCHAR (B+1,C-1,142) 
CALL HCHAR (B+1,C+1,143) 
CALL HCHAR(B,C-1,140) 
CALL HCHAR(B,C+1,141) 
CALL HCHAR (B-1,C-1,137) 
CALL HCHAR(B-1,C,138) 
CALL HCHAR (B-1,C+1,139) 
CALL HCHAR (B-2,C,136) 
NEXT I 

REM WOLKEN 

FOR I=1 TO 9 

D=5 

E=INT (RND*28) +3 

CALL GCHAR(D,E,Z) 

IF 2<397 THEN 2160 
CALL HCHAR (D,E,40) 

CALL HCHAR (D+1,E,42) 
CALL HCHAR (D,E+1,41) 
CALL HCHAR (D+1,E+1,43) 
NEXT I 

F=6 

G=INT(RND*21) +6 

CALL GCHAR(F,G,Z) 

IF Z<>97 THEN 2250 
CALL HCHAR(F,6,152) 
CALL HCHAR(F+1,6,156) 
CALL HCHAR(F,G+1,153) 
CALL HCHAR(F+1,6+1,157) 
CALL HCHAR(F,6+2,154) 
CALL HCHAR(F+1,6+2,158) 
CALL HCHAR (F,6+3, 155) 
CALL HCHAR(F+1,6+3,159) 
REM FLUG 

CALL COLOR(12,2,8) 

CALL COLOR(13,7,9) 

FOR I=2 TO 45 

CALL COLOR(13,7,8) 

IF 1>31 THEN 2440 

CALL SOUND (500, -8,0) 

IF I)=31 THEN 2660 

IF 1>28 THEN 2510 

CALL GCHAR(7,I+4,W) 
CALL GCHAR (7,1+3,2) 

IF W-Z=1 THEN 2590 

IF M<i THEN 2510 

IF M<8 THEN 2700 

CALL HCHAR (?,1-1,97) 
CALL HCHAR (8, 1,97) 

CALL HCHAR(7,1,130) 
CALL HCHAR(7?,1+1,131) 


108 


2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 


CALL 
CALL 
CALL 
GOTO 
CALL 
CALL 
CALL 
CALL 
CALL 
M=M+1 
GOTO 2710 

CALL HCHAR (7,30,97,3) 


HCHAR (8, 1+1,133) 
HCHAR (7, 1+2,132) 
HCHAR (8, 1+2, 134) 
2710 

HCHAR (7,1-1,97) 
HCHAR (7,1,97) 
HCHAR (8,1, 97) 
HCHAR (7, 1+1,97) 
HCHAR (8, 1+1,97) 


CALL HCHAR (8,29,97,4) 
Y=2 

GOTO 2710 

M=M+1 

FOR K=1 TO 10 

NEXT K 

IF Y=2 THEN 2800 

IF Y=1 THEN 2810 
CALL KEY(0,K,S) 


IF S=0 THEN 3400 

IF K<>32 THEN 3400 
CALL SOUND (50,600,0) 
Y=1 

IF U=0 THEN 3400 

IF WM=3 THEN 2870 
L=I-(U+R) 

IF SP=1 THEN 2920 

IF WM=1 THEN 2920 

IF L<3 THEN 2920 

GOTO 2890 

L=I-(U-R) 

IF L>31 THEN 2920 
R=R+1 

IF R<3 THEN 2930 

R=3 

BL=BL+1 

IF U>15 THEN 3400 

IF U=15 THEN 3130 

IF U>12 THEN 3050 
CALL VCHAR (7+U,L,97) 
IF BL>2 THEN 3060 

IF WM=3 THEN 3020 
CALL VCHAR (7+U,L+1,97) 
CALL VCHAR (8+U,L+1,97) 
GOTO 3060 

CALL VCHAR (7+U,L-1,97) 
CALL VCHAR (8+U,L-1,97) 
GOTO 23060 

CALL VCHAR (7+U,L,104) 
CALL VCHAR (8+U,L,122) 
CALL VCHAR (9+U,L,120) 
IF 9+U+1>19 THEN 3110 
CALL GCHAR (9+U+1,L,V) 
IF v<>97 THEN 3260 
U=U+1 

GOTO 3400 

CALL VCHAR (22,1L,104) 
CALL GCHAR (24,L,X) 

IF X=104 THEN 3340 





3160 IF X=113 THEN 3190 
3170 PU=1 

3180 GOTO 3360 

3190 PU=3 

3200 CALL SOUND(100,250,0) 
3210 CALL SOUND(100,280,0) 
3220 CALL SOUND(100,320,0) 
3230 CALL SOUND (300,430,0) 
3240 U=U+1 

3250 GOTO 3400 

3260 CALL HCHAR (8+U,L,97) 
3270 CALL SOUND (100,210,1) 
3280 CALL HCHAR (9+U,L,97) 
3290 CALL SOUND(100,180,1) 
3300 CALL HCHAR(21,L,120) 
3310 CALL SOUND (250,150,1) 
3320 U=16 

3330 GOTO 3380 

3340 CALL SOUND (200,180,0) 
3350 G0T0 3390 

3360 CALL SOUND (100,250,0) 
3370 CALL SOUND (250,425,0) 
3380 T=1 

3390 U=U+1 

3400 NEXT I 

3410 IF U>O THEN 3430 
3420 T=1 

3430 IF PU=0 THEN 3490 
3440 IF PU=1 THEN 3470 
3450 P=P+3 

3460 GOTO 3480 

3470 P=P+1 

3480 GOSUB 3910 

3490 IF T=0 THEN 3520 
3500 MEN=MEN-1 

3510 GOSUB 4000 

3520 IF BZ=1 THEN 36450 
3530 IF PX30 THEN 3650 
3540 BZ=1 

3550 FOR I=1 T0 5 

3560 BO$="BONUS SPRINGER" 
3570 FOR K=1 TO LEN(BOS$) 
3580 CALL HCHAR (10, 9+K,ASC(S 
EG$(BO$,K,1))) 

3590 NEXT K 

3600 CALL SOUND (-200,600,0,5 
00,0,700,0) 

3610 CALL HCHAR(10,9,97,15) 
3620 NEXT I 

3630 MEN=MEN+1 

3640 GOSUB 4000 

3650 IF MEN=0 THEN 3670 
3660 GOTO 13830 

3670 CALL CLEAR 

3680 CALL SCREEN (4) 

3690 FOR I=3 TO 8 

3700 CALL COLOR(1,2,4) 
3710 NEXT I 

3720 E$="SIE HABEN "&STR$(P) 
&" PUNKTE" 

3730 FOR I=1 TO LEN(E$) 


3740 CALL HCHAR (14,4+1,ASC($ 
EG$(E$,1,1))) 

3750 NEXT I 

3760 FOR I=1 TO 300 

3770 NEXT I 

3780 N$="NOCH EIN SPIEL ? [J 
INI" 

3790 FOR I=1 TO LEN(N$) 

3800 CALL HCHAR (20,4+1,ASC($ 
EG$S(N$,1,1))) 

3810 NEXT I 

3820 CALL KEY(0,K,S) 

3830 IF S=0 THEN 3820 

3840 IF K=74 THEN 930 

3850 IF K<>78 THEN 3820 

3860 CALL CLEAR 

3870 FOR I=1 T0 5 

3880 PRINT " AUF WIEDER 


SEHEN": ; 


3890 NEXT I 

3900 END 

3910 REM ZAEHLER PUNKTE 

3920 P$=STR$(P) 

3930 IF LEN(P$)=3 THEN 3960 

3940 Ps="O"RP$ 

3950 GOTO 3930 

3960 FOR I=1 TO LEN(P$) 

3970 CALL HCHAR (2, 10+1,ASC($ 
E6G$(P$,1,1))) 

3980 NEXT I 

3990 RETURN 

4000 REM ZAEHLER MEN 

4010 ME$=STR$ (MEN) 

4020 CALL HCHAR (2,20, ASC (ME$ 
)) 

4030 FOR I=1 TO 100 

4040 NEXT I 

4050 RETURN 

4060 CALL CLEAR 

4070 PRINT "EIN HUBSCHRAUBER 
MIT 5 FALL-":"SCHIRMSPRINGE 
RN FLIEGT UEBER": "EINE LANDE 
CHAFT.": 3 

4030 PRINT "DURCH DRUECKEN D 
ER SPACE-":"TASTE WIRD DER S 

PRUNG AUS-":"GELOEST.": : 

4090 PRINT "TRIFFT DER SPRIN 
GER DIE": "LANDEMARKE NICHT W 
IRD EIN": "SPRINGER ABGEZOGEN 
4100 PRINT "TRIFFT ER SIE AM 
RAND WIRD": "EBENFALLS EIN S 
PRINGER" : "ABGEZOGENS ": "SIE E 
RHALTEN ABER 1 PUNKT.": ; 
4110 PRINT "LANDET ER AUF DE 
R MITTE DER": "LANDEMARKE ERH 

ALTEN SIE":"3 PUNKTE." 

4120 PRINT "DIE ANZAHL DER S 

PRINGER": "AENDERT SICH NICHT 





4130 
4140 
4150 
4160 


PRINT TAB(24) ; "ENTER" 
CALL KEY(3,K,S) 

IF S=0 THEN 4140 

IF K<>13 THEN 4140 

4170 CALL CLEAR 

4180 PRINT "WENN SIE 30 PUNK 
TE ERREICHEN": "ERHALTEN SIE 
EINEN SPRINGER": "ZUSAETZLICH 


4190 
4200 
4210 
4220 
4230 


PRINT TAB (24) 5 "ENTER" 
CALL KEY(3,K,S) 

IF S=0 THEN 4200 

IF K<>13 THEN 4200 

CALL CLEAR 

4240 PRINT "SIE KOENNEN ZWIS 
CHEN ZWEI": "SPIELVARIANTEN W 
AEHLEN.": ı 2: 


4250 PRINT "SPIELART 1:": 5 
4260 PRINT "ABSPRUNG BEI WIN 
DSTILLE.": : 

4270 PRINT "SPIELART 2:": : 
4280 PRINT "HIERBEI SIND DIE 


WINDVER-": "HAELTNISSE ZU BE 
ACHTEN. ": "SIE WERDEN VOR DEM 
START DES": "HUBSCHRAUBERS A 
NGEZEIGT.": 2:5 
4290 PRINT "VIEL VERGNUEGEN 
BEIM SPIEL": : 
4300 PRINT TAB(24); "ENTER" 
4310 CALL KEY(3,K,S) 
IF S=0 THEN 4310 
IF K<>13 THEN 4310 
RETURN 


BÖRSE 


Suche Kontakte zu TIY9/4A Besitzer (auch 
Wissensch. Anwend.) im Raum Göttingen / 
Kass. WHXBREW 0551/71785 

Suche Monitor für TI99/4A U.S.-Bauart am lieb- 
sten Farbe mit NTSC Anschluß. Um 400 DM. 
0551/71785 

Verk. TI+Ex-Basic-Programme. Info g. Rückpor- 
to. B. Knedel, Tulpengasse 16, 3171 Weyhausen 
Tel. 05362/71187 





Marco Bock, Moselstr. 9, 2805 Stuhr I, Tel. 
0421/89026 

Verk. TI99/4A + Rekorder + Kabel +12 Steck- 
module (Parsec, Schach, ext. Basic, Invaders) 

+ Liter. + Software auf Cassette. Interessenten 
melden bei: Axel Knaus, Arminstr. 7, Stgt. 1, 
Tel.: 0711/608566. Topzustand! VB 600,— DM 
Suche TM990/100 MA Mikro-Computer Anwen- 
de-Handbuch! Peter Heinz 06192/6066 
Verkaufe TI99/4A mit X Basic, Software, Joy- 
sticks, Rekorder und Literatur für 550 DM. 
Roland Lux, Meisenweg 28, 8264 Waldkraiburg 
Tel. 08638/674 35 


18 REMFFRRRRRRRNFRRKKRIRNTKR 
i1 REM* * 
12 REM* TI-MUEHLE * 
13 REM* Copyright by * 
14 REM* Juergen Bruehne * 
15 REM* * 
17 REM*Benoetigte Geraete* 
18 REM* TI199/4A Konsole # 
19 REM* * 
23 REM* Speicherbelegung * 
24 REM* 11294 Bytes % 
25 REMIRERTRÄRERKÄRTTTNN 
26 REM 


118 REM BEI VERWENDUNG VON 
EINEM SCHWARZWEISSFERNSEHER 
IST ES SINNVOLL IN ZEILE 85 
8 AUS DER & EINE i6 ZU MACHE 
N! 
128 
NEN 
138 


REM ALLE REM-ZEILEN KOEN 
WESGELASSEN WERDEN 

CALL SCREEN (2) 

CALL CLEAR 

PRINT " JUERGEN BRUEHNE 
"2 29 AM TANNENGARTEN 15": 
8548 AROLSEN- MASSENHAUSE 
Ni 2 2 2 8" STELLT VORS":® 
FOR x=1 TO 15 

CALL COLOR (X,16,2) 

NEXT X 

FOR X=1 TO 
NEXT X 
CALL SCREEN (14) 
PRINT: 23 


528 


DER GRUNDWERS 


:" IN 


.. zZ se 0. 


I6 


238 PRINT : : 

SIONALE-MUEHLE 

DEM: ": TI-99/4A"i 

TEXAS INSTRUMENTS": : 
DRUECKEN": 

248 CALL KEY(8,KE,ST) 

258 IF KE<>13 THEN 248 

26®8 PRINT : : BENOETIGEN 
SIE": :" DIE SPIELREGELN ? 
(Jywme:: 

278 CALL KEY(8,KE,ST) 

IF ST=8 THEN 279 

IF KE=78 THEN 528 

CALL CLEAR 

PRINT "22222... SPIELREGE 

LN®E Tomas . 


"SINN DIESES SPIELES IST 


:"%* DREIDIMMEN 


"ENTER 


S5,": "SO VIELE MUEHLEN WIE 
328 PRINT "MOEGLICH ZU ERSCH 
LIESSEN !": 2"(ES GIBT 76 MO 


EGLICHKEITEN": "ZU EINER MUEH 





LE ZU KOMMEN)": 2 : :,”’ENTER 
DRUECKEN": 2: 
338 CALL KEY(@,KE,ST) 


348 IF ST=8 THEN 339 


358 PRINT " EINE MUEHLE BEST 
EHT AUS": :" 4 SPIELSTEINEN 
‚DIE IN": 2" EINER REIHE ANG 


EORDNET "; :" SEIN MUESSEN. " 


368 CALL KEY(@,KE,ST) 
378 IF ST=8 THEN 36% 
388 PRINT : : : :" ALSO,WENN 


MAN VIER STEINE": :" (DER 6 
LEICHEN FARBE)": :" MIT EINE 
M LINEAL DURCH": :" IHRE MIT 


TELPUNKTE": 5 

378 PRINT " VERBINDEN KANN „, 
HAT MAN": 2" EINE MUEHLE": : 
"AM ENDE DES SPIELES 
WERTET IHR ’TI’ DIE MUEHLEN" 


OD 


488 PRINT "AUS !": ;® ICH WU 
ENSCHE IHNEN ": EIN SPANN 
ENDES SPIEL": :, "ENTER DRUEC 
KEN" 

418 CALL KEY(G,KE,ST) 

428 IF KE<>13 THEN 419 

438 CALL CLEAR 


448 PRINT " HALT !®% 2. 
BALD HAETTE ICH": :" ES VER 

BESSEN 1"; 2 3.5" FALLS SIE 

KEINEN": :" MITSPIELER HABEN 


"ia: 

459 PRINT " DANN KOENNEN SIE 

AUCH GEGEN": MICH SPIELE 

N.": :" DAZU GEBEN SIE NUR ’ 

TI’ ": ı" ANSTELLE DES ZWEIT 

EN U} 

468 PRINT "SPIELERS EIN.": : 
:®VIEL GLUECK IHR": :,"TI-9 

9/4A": "ENTER DRUECKEN": : 

478 CALL KEY(@,KE,ST) 

488 IF KE<>13 THEN 47% 

478 FOR X=1 TO 15 

599 CALL COLOR(X,2,1) 

518 NEXT X 

528 CALL CLEAR 

538 PRINT "BITTE NAMEN EINGE 

BEN !rı 

548 INPUT "SPIELER 1: ":A$ 

558 INPUT "SPIELER 2: ":B$ 

568 FÜR %=1 TO 32 

57@ CALL VCHAR(1,%X,32,24) 

588 NEXT X 

598 CALL SCREEN (4) 

688 D(i4)=T 

618 REM DEFINIERUNGEN ! 

628 CALL CHAR (139, "FFFFFFFFF 

FFFFFFF®) 

438 CALL CHAR (149, "187E7EFFF 

FrEFEILS") 


.n" 
a 


111 


648 
FE? 
658 
668 
678 
688 
698 
708 
718 
720 
?1J 
738 
749 
758 
768 
2a0% 
778 
AgEA 
788 
798 
N” 
898 
812 
320 
339 
848 
358 
868 
879 
882 
878 
988 
910 
920 
938 
949 
959 
968 
979 
988 
998 
1299 
1919 
1929 


1939 
1948 


19859: 


19589 
1979 
1088 
1998 
1189 
1118 
1129 
1139 
1149 
1158 
1189 
1179 
1189 


CALL CHAR (158, "187E7EFFF 
E18") 

CALL COLOR(13,2,13) 

CALL COLOR (14,7,1) 

CALL COLOR(15,6,1) 

CALL COLOR(12,13,13) 
C$="WEITER MIT" 

D$=" (SPACE) " 
E$="MOECHTEN SIE" 

F$="ES NOCHMAL VERSUCHEN 
0)" 

Q=149 

R=15@ 

T=138 

CALL CHAR (131, "000982181 
888") 

CALL CHAR (141, "E82873AE6 
PSF") 

CALL HCHAR (1,1,141,768) 
H$="MUEHLEN. 222... MUEHLE 


REM SPIELAUFBAU 

CALL CLEAR 

CALL SCREEN (4) 

PRINT " "jA$ı ı"  ";B$: 
CALL HCHAR (8,1,129,328) 


FOR X=1 TO 16 

READ S 

READ U 

CALL VCHAR (18, 3+ZA,X+64) 

CALL VCHAR ($,3+ZA, 131,0) 

ZA=ZA+2 

IF ZA=8 THEN 948 

IF ZA=15 THEN 949 

IF ZA<>22 THEN 968 

RESTORE 4688 

ZA=ZA-I 

NEXT X 

FOR X=1 TO 16 

READ S 

READ Z 

CALL VCHAR ($,2,T,4) 

NEXT X 

REM ABFRAGE DES BESTIM- 
MUNGSORTES (WIRD 

REM MIT DER TASTATUR 

REM ABGEFRAGT) 

ZA=8 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

Y=Q 

IF Y<>R THEN 1159 

IF B$="T1" THEN 4218 

CALL KEY(@,KE,ST) 

IF ST=8 THEN 1138 

IF KE<65 THEN 1138 

IF KE>8@ THEN 1138 


HCHAR (21,3,®) 
HCHAR (23,3, R) 
HCHAR (23, 24,129) 
HCHAR (23, 26,129) 
HCHAR (21,24, 94) 
HCHAR (21,26,63) 





1198 


ON KE-64 GOTO 1299,1399 


‚1412,15990, 1599, 1688, 1778,18 
69,1950,2949, 2130, 2220, 2312, 


2499, 


1299 
1219 
1229 


1238 
1248 
1259 
1268 
1279 
1288 
1299 
1398 
1318 
1328 
1338 
1348 
1359 
1369 
13789 
1388 
1399 
1429 
1419 
1429 
1439 
1349 
1459 
1468 
1478 
1489 


1698 
1798 
1718 


1728 


2499, 2588 


CALL GCHAR (13,3,A(4)) 

IF A(4)<>T THEN 1139 

REM SETZEN DER SFIEL- 
STEINE 

FOR X=1 TO 4 

CALL GCHAR (17-%,3,A(X)) 

IF A(X)<>T THEN 1288 

CALL HCHAR (17-X,3,Y) 

G0TO 2678 

NEXT X 

G0TO 2678 

CALL GCHAR (11,5,B(4)) 

IF B(4)<>T THEN 1139 

FOR X=1 TO 4 

CALL GCHAR (15-X,5,B(X)) 

IF BiX)<>T THEN 1379 

CALL HCHAR (15-%,5,Y) 

G0T0 2678 

NEXT X 

CALL GCHAR (9,7,C(4)) 

IF Ci4)<>T THEN 1138 

GOTO 2678 

CALL GCHAR (9,7,C1(4)) 

IF Ci4)<>T THEN 1139 

FOR X=1 TO 4 

CALL GCHAR (13-X,7,C(%)) 

IF C(X)<>T THEN 1488 

CALL HCHAR (13-X,7,Y) 

GOTO 267% 

NEXT X 

G0TO 267% 

CALL GCHAR (7,9,D(4)) 

IF D(4)<>T THEN 1138 

FOR X=1 TO 4 

CALL GCHAR (11-X,9,D(X)) 

IF DiX)<>T THEN 1578 

CALL HCHAR (11-X,9,Y) 

G0TO 2678 

NEXT X 

G0TO 267% 

CALL GCHAR (13,18,E(4)) 

IF Ei4)<>T THEN 1138 

FOR %=1 TO 4 

CALL GCHAR (17-%,18,E 1X) 


IF E(iX)<>T THEN 1668 
CALL HCHAR (17-X%,19,Y) 
GOTO 2678 


! NEXT % 


GOTO 2678 

CALL GCHAR(11,12,Ft4)) 
IF Fi4)<>T THEN 1138 
FOR %=1 TO 4 

CALL GCHAR(15-X,12,F (X) 


IF F(xX)<>T THEN 1759 


112 


1739 
1748 
1758 
176B 
1778 
1788 
1798 
1888 


) 

1819 
18629 
1839 
1839 
1859 
1859 
1879 


1899 


) 

1999 
1919 
1928 
1932 
1949 
1958 
1969 
19782 
1989 


1998 
2009 
29218 
2822 
2932 
2948 
2250 
2968 
20878 
) 


2088 
22999 
2128 
2118 


2138 
2149 
2158 
21688 


2178 
2189 
2199 
2229 
2218 
2228 
2238 
2249 
2259 


2268 


CALL 
GoTO 
NEXT 
GOTG 2678 

CALL GCHAR(9,14,61(4)) 


IF G(4)<£>T THEN 1138 
FOR x%=1 T0 4 
CALL GCHAR (13-%,14,61(X%) 


HCHAR (15-%,12,Y) 
2478 
x 


IF G(X)<>T THEN 1849 
CALL HCHAR (13-%X,14,Y) 
GOTO 267% 

NEXT X 

G0TO 2678 

CALL GCHAR (?,16,H(4)) 
IF H(4)<>T THEN 1138 
FOR =1 T0 4 

CALL GCHAR (11-%X,16,H(X) 


IF H(X)<>T THEN 1939 
SALL HCHAR (11-X,16,Y) 
GOTO 2678 

NEXT X 

GOTO 2678 

CALL GCHAR (13,17,11(4)) 
IF I(4)<>T THEN 113% 
FOR %=1 T0 4 

CALL GCHAR (17-X,17,11%) 


IF 1(x)<>T THEN 2828 
CALL HCHAR (17-X,17,Y) 
GOTO 2679 

NEXT X 

G0TO 2678 

CALL GCHAR(11,19,J14)) 


IF Jta)<>T THEN 1138 
FOR %=1 T0 4 
CALL GCHAR (15-X,19,J (X) 


IF JtX)<>T THEN 2119 
CALL HCHAR (15-X,19,Y) 
G0OTO 2678 

NEXT X 

GOTO 287% 

CALL GCHAR (9,21,K(4)) 
IF Ki4)<>T THEN 1138 
FOR »=1 TO 4 

CALL GCHAR (13-X,21,K 1X) 


IF K(X)<>T THEN 2299 
CAL.L HCHAR (13-X%,21,Y) 
GOTO 26? 

NEXT X 

GOTO 2678 

CALL GCHAR (?,23,L(9)) 
IF L(4)<>T THEN 1138 
FOR %=1 T0 4 

CALL GCHAR (11-X,23,L(X) 


IF L(x)<>T THEN 2296 





2279 
2289 
2299 
2328 
2318 
2329 


2338 
2349 


2358 
2368 
2379 
2388 
2398 
24988 
2418 
24289 
2439 


) 

2449 
2458 
2468 
2478 
2489 
2498 
2529 
2519 
2529 


2539 
2549 
2559 
2568 
2578 
25889 
2598 
2699 
2618 


2628 
2639 
2698 
2459 
2668 
26789 
2688 
2698 
2728 
2718 
2728 
2738 
2798 
2758 
2768 
2778 
2788 
2798 
2889 
2819 
2829 


CALL HCHAR (11-%X,23,Y) 
GOTO 2578 

NEXT X 

GOTO 2878 

CALL GCHAR (13,24,M(4)) 
IF M(4)<>T THEN 1138 


FOR X=1 T0 4 
CALL GCHAR (17-X,24,M(X) 


IF M(X)<>T THEN 2388 
CALL HCHAR (17-%,24,Y) 
G0TO 2478 

NEXT X 

60T0 267% 

CALL GCHAR (11,26,N(4)) 
IF N(4)<>T THEN 1138 
FOR X=ı TO 4 

CALL GCHAR (15-X,26,N(X) 


IF NiX)<>T THEN 247% 
CALL HCHAR (15-%,26,Y) 
G0OTO 2679 

NEXT X 

GOTO 25878 

CALL GCHAR(9,28,0(4)) 
IF Ot4)<>T THEN 113% 
FOR xX=1 TO 4 

CALL GCHAR (13-%,28,0(X) 


IF O(X)<S>T THEN 2569 
CALL HCHAR (13-%X,28,Y) 
GOTO 267% 

NEXT X 

GOTO 287% 

CALL GCHAR (7,398,P1(4)) 
IF P(4)<>T THEN 1138 
FOR %=1 TO 4 

CALL GCHAR (11-X%,38,P(xX) 


IF P(X)<>T THEN 2659 
CALL HCHAR (11-%,39,Y) 
G0TO 26579 

NEXT X 

GOTC 2674 

ZA=ZA+1 

CALL SOUND (-8,56%,1) 
IF ZA=654 THEN 278% 
IF Y<>2 THEN 19088 
Y=R 

CALL HCHAR (21,24,129) 
CALL HCHAR (21,26,129) 
CALL HCHAR (23, 24,94) 
CALL HCHAR (23, 26,63) 
IF B$="TI" THEN 4218 
GOTO 1139 

CALL HCHAR (23,24,1398,3) 
GOSUB 3139 

z=21 

s=2@ 

6$=C$ 


113 


2839 
2849 
2859 
2868 
2879 
2889 
2898 


2988 
2918 
2929 
2938 
2949 
2959 
2968 
29789 
2989 
2999 
3299 
3218 
39828 
3938 
EHEN 
3948 
3952 
Ssg6ß 
3078 


3988 
3998 
SEGS$ 
3122 
3118 
3128 
3138 
3148 
315g 
31688 
3179 
3188 
3198 
3298 
3218 
3228 
3239 
3248 
3259 
3268 
3278 
3288 
3298 
3398 
3318 
3328 
3338 


DD)<>SW THEN 


3349 
3359 


GOSUB 3988 
Z=22 

G$=D$ 

GOSUB 3989 

CALL KEY(8,KE,ST) 

IF KE<>32 THEN 2878 
CALL HCHAR (1,1,141,768) 


z=13 
S=3 

G$=E$ 

GOSUB 3989 

Z=15 

G$=F$ 

GOSUB 3989 

CALL KEY(8,KE,ST) 
IF ST=8 THEN 2978 
IF KE<>74 THEN 3928 
RESTORE 


GOTO 529 

CALL CLEAR 

PRINT ".....AUF WIEDERS 
IH a a 8 2 2 8“ 

FOR x=1 TO 298 

NEXT X 

END 

REM SCHREIBEN DER 


ETRINGS 
FOR X=1 TO LEN(G$) 
CALL HCHAR (Z,5+X-1,ASC 
(6$,%,1))) 
NEXT X 
RETURN 
REM *MUEHLENAUSWERTUNG* 
CALL GCHAR(13,3,A(4)) 
CALL GCHAR(11,5,B(4)) 
CALL GCHAR(9,7,C(4)) 
CALL GCHAR (7,9,D(4)) 
CALL SCHAR (13,12,E(4)) 
CALL GCHAR (11,12,F(4)) 
CALL GCHAR (9,14,6(4)) 
CALL GCHAR (7,16,H(4)) 
CALL GCHAR (13,17,114)) 
CALL GCHAR (11,19,J(4)) 
CALL GCHAR (9,21,K(4)) 
CALL GCHAR (7,23,L(4)) 
CALL GCHAR(13,24,M(4)) 
CALL GCHAR (11,26,N(4)) 
CALL GCHAR (9,28,0(4)) 
CALL GCHAR (7,38,P(4)) 
SW=569 
22=9 
FOR X=1 TO 6 
READ AA,BB,CC,DD 
IF AtAA) +B(BB) +C (CC) +D( 
3359 
ZZ=2Z+1 
IF EtAA) +F(BB) +G(CC) +Hi 


DD)<>SW THEN 3379 


3368 
3379 


ZZ=22+1 
IF I(AA)+J(BB) +K(CC) +L( 





DD)I<>SW THEN 3398 

3388 ZZ=2Z+1 

3398 IF M(AA:+NIBB) +OCCC)I +PL 
DD)IS:SW THEN 3419 

349808 ZZ=2ZZ+1 


3419 IF AtAA)+E(BE)+IICCI+ML 
DD)“ EM THEN 3439 


3a20 ZZ=ZZ+1 

3438 IF BiAA)+FIBB) +ILCCIH+NG 
DDY<>SW IHEN 3458 

3449 Z2=ZZ+1 

2459 IF CtAA)+SCBB) +KIIC) +0 
DDIS>SW THEN 3478 

34&9 Z2Z=ZZ+i 

3478 IF D(AA) +H(iBEB) +LICC)I +PL 
D2)S>SW THEN 3499 

3480 22=ZZ+1 

3498 IF AtAA)+F(BB) +KICC)+Pi 
DL)I)<S>SW THEN 3519 

ss08 ZZ=2Z+1 

3518 IF DiAA)+G(BB) +J (CC) +ML 
D»DD)<S>SW THEN 3539 

35208 ZZ=ZZ+1 

3538 NEXT X 

3548 IF Atli)+AlZ)+A(Z)+AlA)< 
>SW THEN 3569 

3559 ZZ=2ZZ+1i 

3568 IF Bti)+Bi2)+B(3)+Bi(4a)< 
>S5W THEN 358% 

3579 Z2Z=22+1 

3588 IF Cti)+Ct2)+Cc(3)+C(4)£ 
>SW THEN 3698 

35908 ZZ=ZZ+1 

36988 IF Dii)+D(i2)+D(3)+Di4)< 
JEW THEN 3628 

seid 2Z2Z=22Z+1 

3628 IF Etl)+EtZ)+E(3)+E(A)S 
>SW THEN 3649 

3638 ZZ=ZZ+1 

3648 IF Fil)+Fi2)+F(i3)+Fi(4)< 
>SW THEN 3E6ld 

S3h58 ZZ=ZZ+i 

3668 IF Gli1)+Gi2)+G(3)+GlA)< 
»SW THEN 3688 

3e78 2Z=ZZ+1 

3688 IF Hiil)+Hi2)+H(3) +H(4)< 
>S5W THEN 3788 

3699 ZZ=2Z+1 

37988 IF Jt1)+JIt2)+J(3) HJ t4)< 
>»SW THEN 3728 

s718 ZZ=ZZ+1 

3728 IF Kti)+Ki2)+Kt(3) +K(4)< 
>SW THEN 3748 

3730 ZZ=ZZ+1 

37498 IF Lil)+L(Z)I+LIF)I+LIA)X 
>»SW THEN 3768 

3758 ZZ=ZZ+1 

3788 IF Mil) +M(2)+M(iS) +M(A)< 
>SW THEN 3789 

377B ZZ=ZZ+1 
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3788 IF Nti)+N(Z)+N(3)+N(4)< 
>SW THEN 38988 

3798 ZZ=2Z+1 

389885 IF Ot1}+0(2)+0(3)+0(4)£% 
SW THEN 332% 

3819 ZZ=Z2+1 

3828 IF Pti)+Pi2)+Pi3)+Pi4)< 
SW THEH 3946 

3839 Z2Z=2Z+1 

38498 ZV=2ZV+1 

3858 ON ZV GOTO 3869, 3718 
3868 ZD=ZZ 

3878 ZZ=8 

3e82 SW=6RR 

3E99 RESTORE 4648 

3988 GOTO 3318 

3918 6$=H$ 

3922 Z=2 

sy39 5=18 

GOSUB 3089 

CALL HCHAR (2,5,148) 

CALL HCHAR (2,19,15%) 

IF ZD<28 THEN 48085 

CALL HCHAR (2,7,59) 

ZD=2D-28 

IF ZD<18 THEN 4938 

CALL HCHAR (2,7,49) 

zD=ZD-i8 

2zD=ZD+48 

CALL HCHAR(2,8,ZD) 

IF 22<X28 THEN 4988 

CALL. HCHAR(2,21,58) 

Z2=22-28 

IF Z2<1@ THEN 4119 

CALL HCHAR(2,21,49) 

2Z=2Z2-1%@ 

22=22+48 

CALL HCHAR (2,22,22) 

22=8 

zD=>% 

ZA=8 

zV=4 

RESTORE 4649 

RETURN 

REM BERECHNUNG FUER DEN 
’T1-99/AR’ ZUR SETZUNG DER 
SPIELSTEINE 

4218 IF Ati)+A(2)<>278 THEN 
4239 

4228 

4239 
4259 

4248 

4259 
4278 

4268 

4278 
4299 

4288 

4298 

431g 


GOTO 1298 
IF B(1)+B(2)<>278 THEN 


GOTO 13299 
IF Cti)+C(2)<>278 THEN 


GOTO 1419 
IF Di1)+D(2)<>278 THEN 


GOTO 1598 
IF Eti1)+E(2)<>278 THEN 


4398 
4319 
4338 
4329 
4338 
4359 
4349 
4359 
4378 
43688 
4378 
43978 
4369 
4398 
4419 
4498 
4418 
44398 
3428 
4458 
345g 
4449 
4459 
4478 
4468 
4478 
4498 
4488 
4498 
3519 
45089 
519 
453% 
4529 
4538 
4549 
4559 


GOTO 1598 
IF Fi1)+F(2)<>27@ THEN 
GOTG 1888 

IF Gt1)+6(2)<>27@ THEN 
GOTO 1778 

IF Hi1)+Hi2)<>278 THEN 
GOTO 1260 

IF I(1)+1(2)<>278@ THEN 
G0T0 1958 | 
IF Jt1)+J(2)<>279 THEN 
GOTO 2249 

IF Kt1)+K(2)<>278 THEN 
5070 2138 

IF Lil)+L(2I<C>278 THEN 
GOITC 2228 

IE Mt1)+M(2)<>27%@ THEN 
GCTI 2318 

IF Nt13+N(2)<>27@ THEN 
GCTC 2298 

IF Ot1)+0(2)<>27@ THEN 
3070 2479 

IF Pt1)+P(2)<>278 THEN 
G0TO 2588 

RANDOMIZE 

KK= (RND$2@) -2 

IF KK<i THEN 4548 

4568 IF KK>16 THEN 4548 

4578 CN KK GOTO 1299,1399,14 
19,15094,1599,1698, 1779, 186%, 
1959, 2040,2130, 2220, 2319, 248 
2,2499, 2598 

4588 REM DATEN FUER DEN 
4598 REM BILDAUFBAU 

46088 DATA 17,1,15,3,13,5, 11, 
7? 

4618 DATA 13,3,11,5,9,7,7,9, 
13,19,11,12,9,14,7,16,13,17, 
11,19,9,21,7,23,13,24,11,26, 
9,23,7,38 

4628 REM DATEN ZUR 

4638 REM MUEHLENAUSWERTUNG 

1 


4658 REM ENDE DES LISTINGS 
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18 REM FRFRKRRKKRERTHHRENINE 
11 REM*® * 
12 REM* DREIECK & KREIS- * 
13 REM* SBERECHNUNGEN * 
14 REM* Copyright by * 
15 RZM* Juergen Brushne * 
16 REM* * 
17 REM *#Benoetigte Geraete* 
18 REM* TIPP/4A Konsole * 
19 REM* * 
23 REM“ Speicherbelegung # 
24 REM 4277 Bytes * 
25 REMYERRKFKTKKERKKTRIERHT 
26 RZM 


199 CALL CLEAR 


2298 FRINT "” 1-> DREIECKBEREC 
HNUNG (*)"2 5 5" 2-> KREISBE 
RECHNUNG": 5 2" 3-> PROGRAMM 
ENDE": : 5 

218 CALL KEY(9,K,S) 

228 IF 3=% THEN 219 

238 CALL ILEAR 

248 IF K=49 THEN 284 

2598 IF k=5@ THEN 1198 

268@ IF K>51 THEN 219 

278 END 

288 PRINT " A=ANKATHETE": :" 
C=GEGENKATHETE": 2" H=HYPOT 
HENUSE": :" a=ALPHA": 5" b=B 
ETA": 2" 3=G5AMMA (/\=99')" 

29 PRINT: Draneasnaengenen 
Berner sn aan anna \.os 
sorucsveonneer 0 nenn an ads" 

208 FRINT "can asaue hen 
oe raeaeaaaa aa. a Ar H---D" 

319 PRINT : : "WEITER MIT ’EN 


TER’ ": "RUECKSPRUNG MIT 
328 CAll. KEY(@,K,S) 
338 IF S=&ö THEN 326 
348 IE %=82 THEN 198 
359 CALL CLEAR 
368 PRINT : :" BITTE WAEHLEN 
=2IJIE met a ae aaa ea ara ae (a a Ha mine da Ya Fa " 
: [1] HYPOTHENUSE + A 
NKATHETE": :" [2] HYPOTHENUS 
E + GEGENKA.": ; 
379 PRINT " 
+ ALPHA": ;" 
+ BETA": ;" 
ALPHA": ;" 
BETA": ; 
388 PRINT " 
+ ALPHA": 
TE + BETA": ;" 
+ GEGENKA,” 
398 CALL KEY(8,K,S) 
4988 IF S=@ THEN 398 
418 V=99 
428 IF K<39 THEN 398 
438 IF K>57 THEN 398 
448 CALL CLEAR 


IR’ 


a .u 
. “ D 


21 HYFOTHENUSE 
[4) HVYPOTHENUSE 
[5J ANKATHETE + 


[&] ANKATHETE + 


[73 GEGENKATHETE 
ı" 181 GEGENKATHE 
£[9) ANKATHETE 


458 ON K-48 GOTO 466,528,579 
‚642,719,780,8590, 920,999 


468 INPUT "HYPOTHENUSE ?":HY 
478 INPUT "ANKATHETE ?":AK 
4582 IF AK>=HY THEN 478 


498 
528 
S1g 
528 
539 
K 

542 
552 
568 
572 
582 
598 
689 


E=HY*2-AK”2 

GK=E* (1/2) 

GOTO 1188 

INPUT "HYPÜOTHENLSE ?"3HY 
INFUT "GEGENKATHETE ?":G 


IF GK>=HY THEN 539 
AK=(HY*2-6K*2)* (1/2) 
GoTO 1198 

INPUT "HYPOTHENUSE ?":HY 
INPUT "ALPHA ?":AL 

IF AL>=V THEN 589 
CA=COS(ALKLAXATN(1)I) /18Q 
) 
618 
628 
638 
648 
658 
668 
678 
) 
688 
698 
7989 
718 
728 
738 
748 
) 
758 
768 
778 
788 
799 
=7717] 
818 
) 
828 
838 
848 
859 
K 
858 
879 
888 
) 


AK=HYX*CA 
GE=(HY*2-AK”Z)* (1/2) 
GOTO 1199 

INPUT "HYFOTHENUSE ?":HY 
INPUT "BETA ?":BE 

IF BE>=V THEN 4Sg 
CR=SCOS(BEX(IXATN(1))/1SQ 


GE=CBXHY 
AK=(HY*2-GK*2)* (1/2) 
GOTO 1198 

INPUT "ANKATHETE ?"SAK 
INPUT "ALPHA 7"FiZAL 

IF AL>=V THEN 728 
CA=SCOS(ALK(IXATN(1))/1898 


HY=AK/CA 

Gk= (HY*2-AK"2)r1/2) 
GaTa 11da 

INPUT "ANKATHETE ?"2AK 
INPUT "BETA ?":sBE 

IF BE>=V THEN 79% 
SB=SIN(BEX(4XATNI1))/188 


HY=AK/SB 

GK= (HY*2-AK”ZY” (1/2) 
GOTO 119€ 

INPUT "GEGENKATHETE 7":6 
INPUT "ALPHA ?":AL 

IF AL>=V THEN 868 
SA=SIN(ALK#(SXATNIL))/1SA 


HY=6K/SA 
AKH=(HY*2-6K*2)* (1/2) 
GOTO 1198 

INPUT "GEGENKATHETE ?":G 


INPUT "BETA ?Y:EBE 
IF BE>=V THEN 928 
CB=C0OS (BEX(S3%XATN(1))/188 
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968 HY=GK/CB 

978 AK=(HY*2-6K*2)* (1/2) 

988 GCTO 1198 

998 INFUT "ANKATHETE ?":AK 

18986 INPUT "GEGENKATHETE ?": 

GK 

1818 HY=(AK*2+GK*2) (1/2) 

1828 GOTG 1198 

1838 PRINT "HYPOTHENUSE" ,HY: 
:"ANKATHETE" AK: 3 "GEGENKAT 

HETE",GK: :"ALPHA",AL: :"BET 

A",BE: 2: "GAMMA", Pd: :"COS a" 
„ch: : 

1848 PRINT "SIN a",SA: 
a"”,TA: :"C0S b",CB: 
"SB: :"TAN B",TB 

1958 CALL KEY(@,K,S) 

1068 IF S=8 THEN 1958 

1878 IF K<>82 THEN 36% 

1888 CALL CLEAR 

1898 GOTO 199 

11908 CA=AK/HY 

1118 SA=6K/HY 

1128 CB=SA 

1138 SB=CA 

1148 TA=SA/CA 

1159 TB=SB/CE 

1168 AL=ATN(TA)K(180/ (4XATN( 

11.3) 

1178 

1) 

1189 


"TAN 
:"SIN Bb 


BE=ATN(TE)XL189/ (AXATN 


GOTO 1938 

11998 FI=(4%XATN(1)) 

1288 PRINT : : : "WELCHER WER 
T IST GEGEBEN ?'": :" [1] DUR 
CHMESSER (d)": :" 123 RADIUS( 
r}"s 2" 1633 UMFANGtU)"E 5 
1218 


PRINT " [413 FLAECHENINH 

ALT tA)": 3" 15J FORMELN": : 
S"FUER pi=";jPl: ı" [6) WENN 
FÜR pi EINE ANDERE": : 

1228 PRINT " ZAHL EINGESETZT 
WERDEN SOLL": :" [7] RUECKS 

PRUNG": : 

1238 CALL KEY(@,K,S) 

1248 IF S=& THEN 1238 

1258 IF K<49 THEN 123% 

1268 IF K>55 THEN 1238 

1278 CALiL CLEAR 

128% PRINT "BITTE ZAHL EINGE 

BEN": :"DENKEN SIE DARAN FUE 


R EIN": ır 9, 
TZEN": ı ı 5 
1298 ON K-48 GOTO 1329,1379, 
1420,1476, 1529, 1309, 198 


EIN ’.’ ZU SE 


13988 INPUT "#uer pi=:":PI 
1319 GOTO 1298 

1328 INPUT "DURCHMESSER (d): 
":n 

13398 R=D/2 

1349 U=D4PI 








089/1298011 Ab 1.10.85! 


1358 A=D“24P1/4 

1369 GOTO 1588 

1378 INPUT "RADIUS (r):":R 
13898 D=2%*R 

1398 U=DXPI 

1988 A=R”2XPI 

1418 GOTO 1588 

1428 INPUT "UMFANG (u):":U 
1438 D=U/PI 

1448 R=D/2 

19358 A=R"24PI 

1468 GGTO 158% 

1478 INPUT "FLAECHENINHALT ( 
A)S"GA 

1488 R=(A/PI)* (1/2) 

1498 D=RX2 

1589 U=DXPI 

1518 GOTO 1584 

1528 CALL CLEAR 

1539 PRINT "....2....FORMELN 


«Ban „nn. ma nnnnN: ® N 
Li ® au a 2 a 8 . [ 


d=DURCHMESSER": :"r=RADIUS": 
:’a=UMFANG": 2 "A=FLAECHENIN 

HALT" 

1548 >RINT : :" de2fr","r=d/ 

2": 2" uedkpi", "u=sZ2frkpi": ; 
» Aup*2#pi","Asd’2%pi/g": ı 
S"WEITER MIT 'ENTER’": : 

1559 SALL KEY(9,K,S) 

1568 IF K<>13 THEN 1559 

1578 G0T0 1198 

1588 CALL CLEAR 

1598 PRINT "DURCHMESSER ;":" 

"DE S®RADIUS :"ı®  rı®, 

Ri: 2 "UMFANG :"2"  us",Us s"F 

LAECHENINHALT "3" As",A: : 

"WOLLEN SIE EINEN" 

1688 PRINT "KREISABSCHNITT B 

ERECHNEN ?": ;" (J/YND ?": 

1618 CALL KEY(9,K,S) 

1628 IF S=8 THEN 1618 

163@ IF K<>74 THEN 1288 

1648 PRINT "BITTE GEBEN SIE 

DEN": "WINKEL EIN !"ı : 3: 

1658 INPUT "WINKEL : ":W 

1668 IF W>368 THEN 1658 

1678 U=U%W/2369 

1660 A=AkW/368 

1698 PRINT : : : : "WINKEL 

‚Wi S"FLAECHENINHALT :": : 
Aw: ",A: 3"UMFANG :": :" um 

"U: : S’WEITER MIT 'ENTER’ 


17288 CALL KEY(9,K,S) 
1718 1F K<>13 THEN 1788 
1728 GOTO 1294 


ACHTUNG! 






BÖRSE 


Achtung ! Ich drucke kostenlos Eure Listings. 
Rückporto! Programme an Mcihael Wiese, Post- 
fach 3343,'4950 Minden 2 

Verkaufe Programme in TI und XBasic. Liste 
bei Hans Boyer Jr., Eichenstr. 17, 8075 Voh- 
burg gegen RP. 

Verk. TI-99 + Ext. Basic + Rec-Kabel + Joyst. 
+ Module: Buchungsjournal, Munch Man, TI 
Invaders, Chissh. Trail, Addition, Subtr., Mul- 
tipl. + Basickurs + viel Softw. auf Kass. + viele 
Bücher v. Zeitschr. Auch einzeln! VB tel. 
09171/1716 

Suche TI-User, möglichst mit Assemblerkennt- 
nissen im Raum Salzgitter zum Prg- und Modu- 
letausch 

Oliver Moldenhauer, Humboldtallee 19, 3320 
SZ-l, Tel.: 05341/54411 

* Suche Adventuremodul * mit Cassetten! 

* Tausche Programme * nur Ex.-Basic! 

* Tel.: 02103/47208 * 

Module f. TI99/4A ges. Angebote an A. Froberg 
Klopstockstr. 4, 2850 Bremerhaven. P.S. Zahle 
per Nachnahme 

Verkaufe/Tausche TI-org.-Laufw. 250. Inv., 
Parsec je 30,— Suche Speechy-Sy. bis 80,— 
Tel.: 07240/5300 

Verkaufe 3 Original TI-Revue Programmcasset- 
ten aus TI-Spezial Paket 4 Hefte 6+7 DM 20,— 
02271/65673 

Suche für 99/4A preiswert Minimem, 32K Er- 
weiterung extern, J. Rybarski, 02271/65673 
Achtung: Habe vor TI-Club zwecks Progr.-Aus- 
tausch zu gründen. M. Nagler, Tradtstr. 14, 
8492 Fürth, 09973/1517 

Verkaufe mein Grafik-Adventure ‚„Osus Shan 
1“; Test in Adv-Magazin: Grafik „Sehr gut“ 
deutschsprachig! In Ti-Bsic! Auch andere Spiele 
und Anwenderprogramme in Gratis. Info bei: 
W. Mskens, Kranenburgerstr. 224/4180 Goch 6 





Ex Basic 150 DM, Speechsyn 120 DM, TI Writer 
220 DM, TE II 50 DM alle Preise VHG, Rolf 
Dönselmann Skagerrakstr. 10c, 2960 Aurich 
Tel. 04941/4101 App. 278 

TI 99/4A + Selbstbauer W-Box / Centronics, 
32K, Epromprogrammer, GP100, viel Litera- 
tur + Programme. 02721/5395 

Verk. TI99/4A+Ext. BasictRec. Kabel + TI- 
Joyst. + Handbuch + Data Becker Buch / viele 
List. u.Progr. Cass. + 8 TI-Revue für DM 400,— 
Nur komplett. B. Schmitt, Tel. 09721/33843 
nach 18 Uhr 

Suche Amateurfunk-SW jegl. Art: Außerdem: 
Allg. Literatur zur Assemblerprogrammierung 
(Bücher/Tips & Tricks) 

Hartleib, Hardenbergstr. 16, 3500 Kassel 
Exbasic 2 + Painter + Hardcopy, div. Bücher 
sowie Kass. Kabel günstig !!! 

Tel. 06638/1503 





SERVICE 


BOOGABOO 
DER MUSIKALISCHE 





Boogaboo ist ein kleiner 
Floh, und dazu noch ein 
sehr musikalischer. Des- 
halb nimmt er alle Gefah- 
ren auf sich und sammelt 
seine verlorengegangenen, 
verstreuten Noten auf. 
Da er sich aber in einem 
vierstöckigen Höhlenge- 
wölbe befindet, ist dies 
nicht allzu leicht. Immer- 
fort drohen fallende Fels- 
brocken ihn zu erschla- 
gen oder fliegende Noten- 
schlüssel ihn aufzuspie- 
ßen. Zur Bewegung und 
zu seiner Hilfe stehen 
ihm aber Aufzüge und 
Gleitböden zur Verfü- 
gung, auf denen er wäh- 
rend des Fahrens völlig 
sicher ist. 

Nach dem Erscheinen 
des Titelbilds wird ge- 


fragt, ob eine Spielerläu- 
terung gewünscht wird. 
Ist dies nicht der Fall, 
beginnt das Spiel. Der 
Spieler steuert Boogaboo 
mit dem Joystick 2. 
Durch Drücken des 
Hebel nach oben oder 
unten wird der Aufzug 
benutzt. Er verbindet — 
bis auf einen Fall im 3. 
Bild — immer nur 2 Eta- 
gen miteinander. Gleich- 
zeitiges Drücken nach 
rechts oder links und Be- 
tätigen des Aktionsknop- 
fes am Joystick bewirkt 
das Fahren mit dem 
Gleitboden. Aufgabe ist 
es, alle verstreuten 18 
Noten aufzusammeln, 
wobei jedoch immer nur 
drei auf dem Bildschirm 
erscheinen. Dabei ist so- 


wohl auf die schwinden- 
de Zeit als auch auf zahl- 
reiche Hindernisse zu 
achten. Zum einen muß 
man aufpassen, daß Boo- 
gaboo immer festen Bo- 
den unter den Füßen hat, 
da er ansonsten unweiger- 
lich abstürzt. Zum andern 
werden ihm fallende 
Mauerteile und waage- 
rechte Notenschlüssel ge- 
fährlich. Lediglich ein 
aufrechter Notenschlü- 
sel, der jedoch nur zwei- 
mal in einem Bild er- 
scheint, bringt Bonus- 
punkte in Höhe der Hälf- 
te der gegenwärtigen 
Punktzahl. Fängt Booga- 
boo diesen Notenschlüs- 
sel, so ertönt nach Sam- 
meln aller Noten eine Me- 
lodie und die restliche 
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Zeit wird zur Punktzahl 
addiert. Fängt er ihn 
nicht, gibt es keinen Bo- 
nus und die Melodie kann 
aufgrund des fehlenden 
Notenschlüsses nicht an- 
gestimmt werden. 

Sind alle 18 Noten ge- 
sammelt, erscheint ein 
schwierigeres Bild und 
Boogaboo beginnt seine 
Sammelaktion von Neu- 
em. Das Spiel ist been- 
det, wenn alle 4 Leben 
unachtsam verspielt wor- 
den sind. 

Boogaboo ist auf dem 
TI-99/4A mit EXTEN- 
DED Basic programmiert. 
Ein Großteil der verwen- 
deten Routinen wurde in 
Unterprogrammen (Sub- 
programms) erstellt. Da- 
durch wird neben der 
Übersichtlichkeit in eini- 
gen Fällen auch die Aus- 
führungsgeschwindigkeit 
erhöht. 

Bei der Programmer- 
stellung habe ich bewußt 
auf effektvolle Graphik- 
hascherei verzichtet. So 
stellt das vorliegende Pro- 
gramm in Geschwindig- 
keit, Graphik, Sound und 
Abwechslung einen — wie 
ich meine — den Fähig- 
keiten des TI entsprechen- 
den optimalen Kompro- 
miß dar. In dieser Weise 
werden denn auch nach 
Initialisierung ca. 13 600 
Bytes belegt, so daß im 
Interesse eines reibungs- 
losen Programmablaufes 
davon abzusehen ist, 
eventuelle größere Verän- 
derungen vorzunehmen. 
Dementsprechend waren 
bei mir während des End- 
stadiums der Entwick- 
lung Programmverluste 
und Systemabstürze an 
der Tagesordnung. 

Wer dennoch Booga- 
boo eine größere Chance 
geben bzw. seine Ge- 
schwindigkeit erhöhen 
will, kann dies durch Än- 
dern der Zeile 600 bewir- 
ken. Hier muß nur in den 


Bitte lesen Sie weiter auf Seite 123 





OU KRRRRRRRKTKKKIRKIR RR 
11 ı * + 
121 * BOGGAROO = 
13 ı * * 
14 ı * Copyright by x 
15 ı * Peter Krawinkel * 
16 ı * + 
19 ı % Bencostigte Geraete + 
20 ı *%* T199/4A Konsole # 
2ı ı * Ext, Basic * 
22 ı * Joystick (1) * 
23 ı * * 
26 ı * Speicherbelegung * 
27 ı * 11065 Bytes * 
28 ı * * 
2 0 KRRRKRKKKTITTKIIIEIH HN 
30 

220 CALL CLEAR :: CALL SCREE 
N(5S)::5 CALL MAGNIFY(3):: RAN 
DOMIZE 

230 FOR I=1 TO 12 :: CALL CO 
LOR(I,i6,1):: NEXT I :: CALL 

COLOR (10,16,7) 
240 OPTION BASE 1 :: DIM P(3 


‚6,2),ZE(18),SP(18) 
250 ! 
260 ! 
270 ! 
280 CALL CHAR (120, "FF?F3F3FL 
20A03003274301210080700FFFEF 
CF84893609200086£828101020C") 
290 CALL CHAR (124, "004000201 
008040203050F057C23103800040 
608102040808040E£0407C381038" 
) 

300 CALL CHAR (128, "000000001 
028C44203050F053C43808000000 
00010284&348040E04078340202" 
) 

310 CALL CHAR (132,"1C08113E0 
207020101020408106020001C08C 
43EAOFOAOC040201008040302") 
320 CALL CHAR (36, "0102020101 
0101070911110907010106C02020 
20408000C020101020C") 

330 CALL CHAR (136, "000000060 
FFOPOFFLOLOOPAE"EKRPTS("O",18 
)&"8086FAA2920E") 

340 CALL CHAR (140,RPT$("0O",1 
Ö)&"FFFFFF3FIFOF"KRPTS("O",2 
O)L"FFFFFEFCFSF") 

350 CALL CHAR (104, "FF202020F 
F020202" , 112, "FF?F3F3F",113, 
"EFFEFCFB",114,"") 

360 CALL CHAR (115, "070404040 
A1C3C18", 116, "IFilL1LIIL7?FF 
66" ,117,"07040404041C2418" ,1 
18, "IFA11111117079966", 119, "C 
34224183C05A42") 
370 GOTO 620 
380 PU,R,Ri=0 :: 


CHAR-DEFINITIONEN 


MA=3 


119 


390 ı 

400 ! RUNDENBEGINN 

410 ! 

420 R=R+1 :: Ri=sRi+ti :ı IFR 
3 THEN R=1 

430 AN,NS,A,B,EN,BC=0 :: TI= 
250 

440 CALL LIFT(R,P(,,),AWO)DD: 
: CALL NOTVER(ZEUO,SPU,RI:: 
GCSUB 1140 

450 CALL BILD{R):: CALL SPRI 
TE(#1,124,16,129,57?):: CALL 


COLOR (#2,2,#3,2,#4,2,#5,2,#6 
‚11,#87,10D 
460 ! 
470 
480 ! 
490 CALL TREFF(A,B,BN):: CAL 
L COINC(#1,#10,10,CW:: IF C 
U THEN 820 ELSE GOSUB 570 
500 CALL FNS(A,B,Ri,SX,BN,BC 
)2: CALL COINC(#1,#10,10,CU) 
ı: IF CU THEN 820 ELSE GOSUB 
570 
510 CALL TREFF(A,B,BN):: CAL 
L COINC (#1,#10,10,CU):: IF C 
U THEN 820 ELSE GOSUB 570 
520 CALL FALL(A,B,Ri,SY):: C 
ALL COINC(#1,#10,10,CU):: IF 
CU THEN 820 ELSE GOSUB 570 
530 TI=TI1-1 IF TI<=0 THEN 
320 ELSE GOTO 490 


HAUFTPROGRAMM 


540 |! 

550 ! BEWEGUNG 

560 ! 

570 CALL KEY(2,K,S):: CALL J 
OYST(2,%,Y):: IF Y<S>O OR S*X 


THEN CALL MOV(R,P(,,),AWO, 
Y,x) 
580 CALL POSITION(#1,5X,8Y): 
! CALL GCHAR( (8%X+7)/8, (SY+11 
)/8,Pi):: CALL GCHAR((SX+23) 
/8, (SY+11)/8,P2) 
590 IF Pi<>32 THEN GOSUB 121 
0 ELSE IF P2=32 THEN 820 


600 CALL PATTERN(#1,128):: C 
ALL LOCATE(#1,SX,SY+r2%X):: C 
ALL PATTERN(#1,124):: CALL L 


GCATE(H1,SX,3Y+2%X) 


610 RETURN 

620 ! 

630 ! TITELBILD 
640 ! 


550 CALL CHAR (965, "OGO0O0OFIFSF 
S3F3C3C",97,RPT$("3C",8),98," 
O000FFFFFFFF",99, "3C3C3F3FAF 
OF",64, "30C42979A1A199423C") 
660 CALL CHAR (100, "O000FOFSF 
CFCSC3C", 101, "3C3SCFCFCFSFO", 
102, "3C78FOFOFOFO?83C", 103," 
SCICICICEICIe") 





670 CALL SCREEN(S5):: CALL CO 


LOR(9,16,1) 


680 PRINT "..'bd'bd'bd'b 'bd 
'bd'bd'bd" 
690 FRINT "..a aaaa aa aa 
aaa aa a" 
700 PRINT "..abfa aa aabdaba 
abta aa a" 
710 PRINT "..a aa aa aa aaa 
aaa aa a" 
720 PRINT "..cbecbecbecbeg 9 


cbecbecbe": : : :"..,@ BY P.K 
RAWINKEL APRIL’ES": : : 5 


730 PRINT ".ceeernehhosseree 
chh": 5 2 "ren ennnehhiccsen 
..hh"i: 2 2: 0505 

740 DISPLAY AT(20,3)BEEP: "PR 
ESS..." s: DISPLAY AT(22,3)B 


EEP:"1 > FOR INSTRUCTIONS” : 
: DISPLAY AT(24,3)BEEP:"2 > 
TO PLAY " 

750 CALL SFRITE(#2,140,2,121 
‚65,#7,140,11,89,97,#3,140,2 
‚89,177,#6,140,11,121,145, #1 
‚124,16,113,153) 

760 CALL MUSIC (58) 

770 CALL KEY(0,K,S):: IF $=0 
THEN 770 ELSE IF K=49 THEN 
1370 

780 IF K=50 THEN CALL CLEAR 


»: CALL DELSPRITE(ALL)I:SS GCOT 
0 380 ELSE 770 

790 ! 

800 ! ABSTURZ 

810 ı! 

820 CALL DELSPRITE (#10):: IF 


BN=1 THEN 950 ELSE IF TI)YO 
THEN 840 
830 DISPLAY AT(8,4):"DIE ZEI 
T WAR BEGRENZT !" DISPLAY 
AT(12,4): "WOHL GESCHLAFEN, 
ODER ?" TI=250 
840 FOR I=1 TO 4 :: CALL SOU 
ND(-139,110,5,111,5,112,59):: 
CALL PATTERN(#1,128) 
850 CALL SOUND (-139,440,5,44 
1,5,442,5):: CALL PATTERN (#1 
‚124):: NEXT I 
860 CALL PATTERN(#1,132):: 
ALL MOTION(#1,9,0):: FOR I=6 
60 TO 110 STEP -10 :: CALL P 
OSITION(#1,5%X,5Y) 
870 CALL SQUND(-139,1,5,1+1, 
5,1+2,5):: IF SX>192 THEN 89 
o 


c 


880 NEXT I 

890 CALL DELSPRITE(#1):: FOR 
I=s1 TO 4 :: CALL SOUND(169, 
110,5,220,5):: NEXT I 

900 MA=MA-1 :: IF MA<O THEN 

1290 ELSE A,B=0 :: CALL SCOR 


120 


EtPU,HI,MA,TI) 
910 CALL HCHAR (8,3,32,26):: 


CALL HCHAR(12,3,32,26):: GOT 
0 450 

920 ! 

930 ! BONUS 

940 ! | 

950 FOR I=1 TO 3 :: FOR J=22 
0 TO 330 STEP 10 :: CALL SOU 
ND(-139,J,5,J+1,5,J+2,5):: N 
EXT I :: NEXT I 

960 CALL SPRITE(#11,36,16,17 
8,9) 


970 FOR I=PU TO PUX1.5 STEP 
10XRi DISFLAY AT(22,1)SIZ 
E(11):ULSING "SCORE #HHHHR":I 


:: CALL SOUND(39,111,5):: NE 
xTı 

980 BN,A,B=0 :: BC=2 :: PU=P 
UX1.5 :: CALL SCORE (PU,HI,MA 
‚TII:: GOTO 490 

990 | 

1000 ! NAECHSTE RUNDE 

1010 ! 

1020 CALL DELSPRITE(#10):: C 
ALL POSITION(#1,$SX,$Y) 

1030 FOR I=1 TO 6 :: CALL PA 


TTERN (#1,128):: 

#1,5X-6,5Y):: 

9,440,5,444,5) 

1040 FOR J=1 TO 35 :: NEXT J 

CALL LOCATE(#1,5X,5Y):: 

CALL PATTERN(#1,124) 

1050 CALL SOUND(-169,220,5,2 

22,5):: FOR J=i TO 35 NEX 

TJ:: NEXT I 

1060 CALL POSITION(#11,3%X,8Y 
ıı IF SX<>178 THEN 1090 ELS 

E IF Ri/3=INT(R1/3) THEN CALL 
MUSIC (SS)ELSE CALL MUSIC (30 
) 

1070 FOR I=PU TO PU+TI STEP 
10 :: DISPLAY AT(22,7)SIZE(5 
):USING "AHHHR":I 

1080 DISPLAY AT{i24,26) BEEP:U 

SING "HHH":PU+TI-I NEXT I 
:: PU=PU+TI 

1090 TI=0 
1,MA,TDD:: 

L) 

1100 CALL HCHAR (6, 1,32,480): 
: CALL HCHAR (24,4,32,18):: 6 

0TO 420 


CALL LOCATE( 
CALL SOUND (-i16 


CALL SCORE (PU,H 
CALL DELSPRITE (AL 


1110 ! 

1120 ! NOTEN SETZEN 

1130 ! 

1140 NS=NS+3 :: IF NS>=21 TH 
EN 1020 


1150 FOR I=0 TO 2 CALL HC 
HAR (ZE(NS-T)%4+1,SP(NS-I),IN 
T(RND%4) +115) 





1160 CALL SOUND(-99,220,5,22 

1,5,222,5)::5 NEXT I 

1170 TI=TI-3 :: CALL SCORE (P 

U,HI,MA,TI RETURN 

1180 ! 

1190 ! 

1200 ! 

1210 CALL HCHAR ( (SX+7?)/8, (SY 

+11)/8,32):: CALL SOUND(-99, 

110,5,333,5) 

1220 CALL HCHAR (24,NS+AN+1,1I 

NT(RND*4) +115):: PU=PU+R1X*10 
:: TI=TI-1 

1230 CALL SCORE (PU,HI,MA,TI) 

1240 AN=AN+1 IF AN=3 THEN 


NOTEN SAMMELN 


AN=O :: GOSUB 1140 
1250 RETURN 

12680 ! 

1270 ! END OF GAME 
1280 ! 


1290 CALL DELSPRITE(ALLI:S: C 
ALL CLEAR CALL SCORE (PU,H 
I,MA+1,T1I):: DISPLAY AT(2,1) 
"DDDGAME OVE RSSSS 
xcH 

1300 DISPLAY AT(?,1): "VIER F 
LOEHE VERHEIZT !": :"WOHL BL 
IND WAS ?" 

1310 IF PU>HI THEN CALL SCOR 


E(PU,PU,MA+1,TI):: HI=PU ELS 
E 1340 

1320 DISPLAY AT(12,1): "TROTZ 
13] 3, EEE 
DISPLAY AT(14,1):"GRATULATIO 
N.....HIGHSCORE !!" 


1330 CALL MUSIC (58) 

1340 DISPLAY AT(17,1): "NEUES 
SPIEL. ..NEUES GLUECK !"i :" 
BITTE >J< ODER >N< DRUECKEN! 


1350 CALL KEY(O,K,S):: IF S= 
O0 THEN 1350 
1360 CALL CLEAR :: IF K=78 0 


R K=110 THEN STOP ELSE 380 
1370 |! 


1380 ! SPIELERLAEUTERUNG 
1390 ! 

1400 CALL DELSPRITE(ALL):: C 
ALL CLEAR 

1410 PRINT "BOOGABOO, DER MU 
SIKALISCHE": :"FLOH, WILL SE 
INE VERLORENEN": : "NOTEN WIE 


DER AUFSAMMELN.": : : 

1420 PRINT "HELFEN SIE IHM D 

ABEI, INDEM": :"SIE DIE AUFZ 

UEGE (JOYSTICK": : "NACH OBEN 
/ UNTEN) ODER": :; 

1430 PRINT "DIE GLEITBOEDEN 
JOYSTICK": : "RECHTS / LINKS 
+ FIRETASTE )": : "BENUTZEN. 


121 


1440 CALL KEY(O,K,S):: 
OÖ THEN 1440 

1450 PRINT "LASSEN SIE SICH 
JEDOCH NICHT": : "VON FALLEND 
EN MAUERTEILEN": : "ODER LIEG 
ENDEN NOTENSCHLUES-": : 

1460 PRINT "SELN ERWISCHEN ! 
: "NUR AUFRECHTE NOTENSCHL 


IF S= 


UES-": :"SEL BRINGEN IHNEN D 
IE HAELF-": ı: 
1470 PRINT "TE IHRER PUNKTZA 


HL ALS BONUS": ; "UND SPAETER 
DIE RESTLICHE": : "ZEIT IN P 
UNKTEN.": : 
1480 PRINT "DIESER NOTENSCHL 
UESSEL ER-": : "SCHEINT IM EI 
NER RUNDE NUR": : "2 MAL." 
1490 CALL KEY(0,K,S):: IF S= 
O THEN 1490 


1500 PRINT : "OHNE DEN NOTE 
NSCHLUESSEL ": 2"GIBT’S >KEI 
NENS BONUS, AUCH": : "NICHT A 


M RUNDENENDE : 
1510 PRINT "EIN TIP !"; 
LIKOMMEN SICHER SIND SIE 
"NUR, WAEHREND SIE AUFZUG": 
: "ODER GLEITBODEN FAHREN !" 


"vo 


1520 PRINT ">ALPHA-LOCK< LOE 
SEN !": : "PRESS ANY KEY TO B 
EGIN. 2.2..." 

1530 CALL KEY(0,K,8):: IF $= 
O THEN 1530 ELSE CALL CLEAR 
11 GOTO 380 

1540 ! 
1550 ! 
1560 ! 
1570 DATA 137,105,32,105,73, 
32,73,41,32,73,41,32,81,113, 
32,137,153,16 

1580 DATA 137,105,32,105,73, 
32,73,41,32,73,41,32,57,81,2 
4,81,145,64 

1590 DATA 137,105,32,105,73, 
32,105,41,64,73,41,32,113,16 
1,48,97,161,64 


DATEN AUFZUEGE 


1600 ! 

1610 ! DATEN DISPLAY>1,2,3< 
1620 ! 

1630 DATA "hhhhhhhhhh..hhhhh 
hhhhhrrhhhh",? 

1640 DATA "hhh..hhhhhrrhhhrr 
..hhh..hhhh",ii 

1650 DATA "hhhrrhhhhhhhhhhhh 
hhh..hhhhhh",15 

1660 DATA "hhhhhhhhrr....hhh 
hhhrrhhhhhh",19 

1670 DATA "hhhhhhhh......hhh 


hhhhhhhhhhh",20 
1680 DATA 137,177,105,41,73, 
97,41,193,137,81,73,137 





1690 DATA "hhh. «hhhrr....::. 
„hhhhrrhhhh”,? 


1700 DATA "hhhrrhhhhhhhhhhhh 
h..hh..hhhh",ii 
1710 DATA "hhhhh...rrhhh..hh 
hrrhhhhhhhh", 15 
1720 DATA "hhhhhhhhhhhhhrrhh 
hhhhhhhhhhh", 19 
1730 DATA "hhhhhhhhhhhhh..hh 


hhhhhhhhhhh",20 
1740 DATA 137,121,105,161,73 
‚41,41,193,105,81,41,81 


1750 DATA "hhhhhrrhhhhhhhhhh 
hhhhhhhhh..",7 

1760 DATA "hhhhh..hhhrr..... 
...hh..h",il 

1770 DATA "hhhhhhhh..hhrr... 
...hhrrhhrr", 15 

1780 DATA "hhhhhhhhrrhhhhhhh 
hhhhhhhhhhh", 19 

1790 DATA "hhhhhhhh..hhhhhhh 


hhhhhhhhhhh" , 20 

1800 DATA 137,81,105,193,105 
‚225,41,57,105,113,73,97 
1810 ! 
1820 ! 
1830 ! 
1840 DATA 2,23,3,10,2,29,1,7? 
‚4,18,3,15,4,29,1,4,2,16,3,1 
8,3,4,4,9,1,16,2,23,4,28,3,4 
‚1,10,1,19 

1850 DATA 2,4,4,20,2,19,3,14 
‚1,22,4,9,1,9,3,5,2,13,4,4,4 
‚26,1,29,3,6,2,4,1,28,4,24,3 
6,3,27 

1860 DATA 1,22,2,27,1,17,3,2 
4,4,19,2,10,4,26,3,28,1,4,2, 
23,2,4,4,19,3,14,1,23,4,6,2, 
27,3,4,3,23 

1870 ! 
1880 ! 
1890 ! 
1900 DATA 5,391,5,523,5,523, 
5,587,5,659,5,523,5,659,5,58 
7,5,493,5,523,5,523,5,587,5, 
659,10,523,5,493 

1910 DATA 5,391,5,523,5,523, 
5,587,5,659,5,698,5,659,5,58 
7,5,523,5,493,5,391,5,440,5, 
493,10,523, 10,523 

1920 DATA 7.5,220,2.5,246,5, 
220,5,195,5,220,5,246,5,261, 
5,220,7.5,195,2.5,220,5,195, 
5,174,10,164,10,195 

1930 DATA ?7.5,220,2.5,246,5, 
220,5,195,5,220,5, 246,5, 261, 
5,220,5,195,5,261,5,246,5,29 
3,10,261,5,261 

1940 SUB LIFT(R,P(,,),AWO)) 
1950 ON R GOTO 1960, 1970, 198 
) 


DATEN MUSIKNOTEN 


DATEN MUSIK 


122 


1960 RESTORE 1570 :: GOTO 19 
90 

1970 RESTORE 1580 :: GOTO 19 
de 

1980 RESTORE 1590 

1990 FOR I=1 TO 6 :: READ Ft 


R,I,1),P(R,I,2),AW(I):: NEXT 
I :: SUBEND 

2000 SUB BILD(R) 

2010 ON R GOTO 2020, 2030, 204 

) 


2020 


RESTORE 16830 GOTO 20 


RESTORE 1690 GOTO 20 


RESTORE 1750 
CALL HCHAR(1,3,104,28): 
ı DISPLAY AT(2,1):RPTS("xz", 


14):: DISPLAY AT(3,1):RPTE$(" 
yt",14) 

2050 FOR I=1 TO 5 :: READ A$ 
„2 »: DISPLAY AT(Z,1):A$ :: 
NEXT I 

2070 FOR I=2 TO ? :: READ Z, 
S :: CALL SPRITE(#1,1490,1,Z, 
S):: NEXT I :: SUBEND 

2080 SUB MOV(R,P(,,),AW(),Y, 
x) 

2090 FOR 1=2 TO 5 :: CALL CO 
INC(#1,#81,8,C(I)):: IF C(T)* 


Y THEN 2120 
2100 NEXT I 
2110 CALL COINC (#1,#6,8,C01) 
CALL COINC (#1,87,8,C002):: 
IF CO1%X THEN 2150 ELSE IF 
CO2%X THEN 2160 ELSE SUBEXIT 
2120 CALL POSITION(#1,5%X,5Y) 
IF (Y=-4 AND SX=P(R,I-1,1 
)IJOR(Y=4 AND SX=P(R,I-1,2))T 
HEN SUBEXIT ELSE 2130 
2130 FOR J=SX TO SX-AW(I-1)%* 
SGNIYISTEP -Y/2 :: CALL LOCA 
TE(#1,J-8,5Y,#1,J,8Y) 1° NEXT 
J 
2140 CALL HCHAR( (SX+15) 78, (8 
Y+7)/8,32,2):: CALL HCHAR((S 
X+15-SGN(YIXAW(I-1))/8, (SY+7 
)/8,114,2):: SUBEXIT 
2150 CALL POSITION(#6,5X,5Y) 
IF (X=4 AND SY=P(R,5,2))0 
Rix=-4 AND SY=P(R,5,1)) THEN 
SUBEXIT ELSE J=5 ;: GO0TO 217 
fe) 
2160 CALL POSITION(#7,5X,$Y) 
IF (X=4 AND SY=P(R,6,2))0 
Rix=-4 AND SY=P(R,6,1)) THEN 
SUBEXIT ELSE J=6 
2170 FOR I=SY TO SY+AW(J)XSG 
N(X)STEP X/2 CALL LOCATE( 
#1,5X-8,1,#J+1,8SX,D):: NEXT 
I 





089/1298011 Ab 1.10.85! 


2180 CALL HCHAR((SX+15)/8, (8 
Y+7)/8,32,2):: CALL HCHAR((S 
X+15) /8, (SY+7+SGN(XIKAWLIID/ 
8,114,2) 

2190 SUBEND 

2200 SUB FNS(A,B,C,D,E,F) 

2210 IF A/2=INT(A/Z)OR B=i T 
HEN SUBEXIT ELSE IF F>i THEN 
PA=136 GOTO 2230 

2220 IF RND>.26 THEN PA=136 
ELSE PA=36 Esi :: F=sF+i 

2230 H=8%(-1)*(INT(RNDX3) +1) 

IF H>O THEN G=17 ELSE 6=2 


39 
2240 CALL SPRITE(#10,PA,16,D 
-4,6,0,H+SGN(H)*C):: B=al 
2250 SUBEND 

2260 SUB TREFF(A,B,C) 

2270 CALL FOSITION(#10,5%X,SY 
):s IF SY*S5X=0 THEN SUBEXIT 
ELSE IF SY<i8 OR SY>238 OR S 
x>145 THEN CALL DELSPRITE (#1 
O)JELSE SUBEXIT 

2280 A=A+1 
D 

2290 5UB FALL(A,B,C,D) 

2300 IF A/2<>INT(A/Z)OR B=i 
THEN SUBEXIT 


:: B,C=0 :: SUBEN 


2310 X=(INT(D+P)/9)%8-7 :ı C 
ALL SPRITE(#10,120,16,17,X,7 
+C,0):: B=i 

2320 SUBEND 

2330 SUB NOTVER(ZE(),SP(),A) 
2340 ON A GOTO 2350, 23640, 237 
o 

2350 RESTORE 1840 :: GOTO 23 
80 

2360 RESTORE 1850 :: GOTO 23 
80 

2370 RESTORE 1860 

2380 FOR I=1 TO 18 :: READ Z 


EIDD,SP(TDD):: 
2390 SUBEND 
2400 SUB SCORE (A,B,C,D) 
2410 DISPLAY AT(22,1):USING 
"SCORE #HHHH HI HHHHH CO ## 
#":A,B,RPT$S("W",C):: DISPLAY 
AT(24,21):USING "TIME ###": 
D 
2420 
2430 
2440 


SUBEND 

SUB MUSIC (A) 

RESTORE 1900 

2450 FOR I=1 TO A READ B, 
C :: CALL SOUND (B#38,C,3):: 
NEXT I 

24580 SUBEND 


ACHTUNG! 
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BOOGABOO 


Fortsetzung von Seite 123 

beiden LOCATE-Befeh- 
len der Faktor vor der 
Statusvariablen ‚X‘ des 
Joysticks vergrößert wer- 
den. Eventuelle Verbesse- 
rungen oder Erweiterun- 
gen des Programmes kön- 
nen nach einer Freiset- 
zung von Speicherplatz 
vorgenommen werden. 
Dazu kann vielleicht die 
Spielerläuterung ersatzlos 
gestrichen und das Titel- 
bild dementsprechend ab- 


geändert werden. Dem 
Bastler stehen hier alle 
Wege offen. 


Downloaded from 

ww.ti99iuc.it 
Aufbau des Programms 
BOOGABOO 
100-210 Programm 
Identifizierung 
220-240 Dimensionie- 
rungen/Farbdefinitionen 
250-360 Character-De- 
finitionen 
370 Sprung zum Titel- 
bild 
380 Variablenbelegung 
390-450 Rundenzäh- 
ler/Variablenbelegung 
/Bildschirmmaske/Ein- 
lesen der Aufzugs- & 
Noten-Daten 
460—530 Hauptpro- 
gramm 
540-610 Joystick-Ab- 
frage/Bewegung 
620-780 Titelbild 
790-901 Absturz/ 
Zeit überschritten 
920-980 Bonus 
990-1100 Nächste 
Runde 
1110-1170 Noten setzen 
1180-1250 Noten sam- 
meln 
1260-1360 Spielende 
1370—1530 Spielerläu- 
terungen 
1540—1600 Daten Auf- 
züge 
1610-1800 Daten Dis- 
play -1-2-3- 
1810-1860 Daten Mu- 
sik-Noten 
1870-1930 Daten Musik 
1940—1990 Sub Lift — 
Einlesen der Aufzugdaten 
2000-2070 Sub Bild — 
Bildschirmmaske 
2080-2190 Sub Mov — 


Aufzüge und Gleitböden 
bewegen 

2200-2250 Sub Fns — 
Notenschlüssel setzen 
und bewegen 
2260-2280 Sub Treff 

— Hindernisse löschen 
2290-2320 Sub Notver 
— Notenverteilung ein- 
lesen 

2400-2420 Sub Score — 
aktuellen Punktstand 
drucken 

2430-2460 Sub Music — 
Musik spielen 


Variablenliste zum Pro- 
gramm BOOGABOO 
Variablen, die ausschließ- 
lich in Unterprogrammen 
benutzt werden, sind mit 
(S) gekennzeichnet. 
A (S) Statusvariable 
Hindernis 

AN Anzahl gesammelter 
Noten nach dem letzten 
Setzen 

AW (..) (S) Wegstrecke 
der Aufzüge und Gleit- 
böden 

B (S) Hinderniszähler 
BC Zähler für Bonus- 
chancen 

BN Statusvariable Bonus 
Hi Highscore 

I,J Schleifenvariablen 
MA Restleben 


.NS Gesamtanzahl gesam- 


melter Noten 
PA (S) Gegenwärtiger 
Mustercode des Noten- 
schlüssels 
PU Punkte 
P (‚,,) (S) Maximale Po- 
sitionen der Aufzüge und 
Gleitböden . 
R Rundenzähler für Bild- 
schirmmaske 
R1 Absoluter Runden- 
zähler 
SX/SY Punktzeile / 
-spalte der Spielerfigur 
SX/SY (S) Punktzeile/ 
-spalte der Aufzüge der 
Gleitböden 
TI Zeit 
SP (..) Spalte für Noten- 
druck 
ZE(..) Zeile für Noten- 
druck 
X,Y Hebelpositionen des 
Joysticks 

Peter Krawinkel 





SERVICE UG.ii 


SUPER?! 


DAS SUPER 
GRAFIK-PROGRAMM 








Nach dem Starten des 
Programmes erscheint das 
Hauptmenue. Dort kön- 
nen sie zwischen 4 Mög- 
lichkeiten wählen. Wählt 
man Laden oder Spei- 
chern, dann wird man 
nach dem Namen und der 
Nummer der Datei ge- 
fragt. Wählt man Aufruf 
der Grafik, dann er- 
scheint ein zweites Me- 
nue. Dort kann zwischen 
Erstellen und Definition 
gewählt werden. Wählt 
man Definition, so kann 
man dort mit Hilfe der 
Tastatur ein Zeichen defi- 
nieren. Das Umrechnen 
in den HEX-Code macht 
der Rechner.. Wählt man 
jedoch Erstellen, so kann 
man dort eine neue Gra- 
fik erstellen oder eine 
alte Grafik verbessern. 


Beschreibung der einzel- 
nen Programmteile: 


Hauptprogramm: Hier 
werden die benötigten 
Variablen initialisiert. 
LOES(chen): Hier wird 
der Grafikbildschirm ge- 
löscht und gefragt, ob 
wirklich gelöscht werden 
soll (LO(esch)FR (age)). 
SPRU(ng): Abfrage auf 
gedrückte Taste und Fest- 
stellung, ob eine richtige 
gedrückt wurde. 

LADE: Lädt Grafik von 
Kassette oder Diskette 
(FRAG(e)). 

SAVE: Speichert Grafik 
auf Kassette oder Dis- 
kette (FRAG(e)) 


HAUP(tmenue): " Erstellt 
Menue für das Hauptpro- 
gramm. 


TITEL: Erstellt Titelbild. 
LEER: Leert Bildschirm 


und initialisiert Farben 
neu. 
GRAF(ik): Fragt, ob 


man eine Grafik erstellen 
oder ein Zeichen neu de- 
finieren will. 


ENDE: Fragt, ob man 
wirklich beenden will. 
ERST(elle): Wenn schon 
etwas definiert bzw. eine 
Grafik erstellt wurde, die 
alte Grafik erstellt (BILD). 
Beim Drücken einer belie- 
bigen Taste erscheint das 
Zeichen auf dem Bild- 
schirm unterhalb des Cur- 
sors (DRUC(ke)), solange 
ihr ASCII-Code größer 39 
und kleiner 144 ist. 

Um den Cursor zu be- 
wegen, müssen die Cur- 
sortasten in Verbindung 
mit FCTN gedrückt wer- 
den. Um die Farbe des 
Bildschirmes zu verän- 
dern, muß FCTN REDO 
drücken. Die Vorder- 
grundfarbe einer Gruppe 
kann durch FCTN DEL 
und die Hintergrundfarbe 
durch FCTN INS erhöht 
werden. Um diese Verän- 
derungen hervorzurufen, 
muß ein Zeichen dieser 
Gruppe unter dem Cur- 
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sor sein. Mit FCTN 
BACK kann man dieses 
Unterprogramm verlas- 


sen. Mit FCTN AID er- 
hält man das Menue zu 
diesem Unterprogramm. 
SET (cursor): Zeigt, wo 
sich der Cursor befindet). 
BEST(imme): Bestimmt, 
von welcher Zeichengrup- 
pe die Farbe verändert 
werden soll. 

ERH(öhe): Erhöht oder 
vermindert einen Wert 
um 1 bis zu einer maxi- 
malen oder minimalen 
Grenze. Ist eine dieser 
Grenzen erreicht, so 
wird der Wert auf die an- 
dere Grenze gesetzt. 
DEFI(nieren): Hier kann 
ein Zeichen mit einer 8x8 
Matrix definiert werden. 
Nach der Definition wird 
die Frage gestellt, ob das 
Zeichen noch verändert 
werden soll, oder ob man 
en neues Zeichen definie- 
ren will. 

D(efi)MMEN(ue): Erstellt 
das Menue zum Unter- 
programm DEFI. 
UMRE(chnen): Rechnet 
die Matrix in den dazu- 
gehörigen Hex-Code um. 


Bedeutung der wichtig- 
sten Variablen: 

ZE$( ): Enthält den Teil 
des Grafikbildschirms, 
der mit DISPLAY AT 
dargestellt werden kann. 
CH$® ( ): Enthält die 
Hex-Codes der neu defi- 
nierten Zeichen. 


SP$ ( ): Enthält die 
Spalten, die nur mit 
HCHAR dargetellt 


werden können. 

VO ( ): Enthält die Vor- 
dergrundfarben der Zei- 
cengruppen. 

HI ( ): Enthält die Hin- 
tergrundfarben der Zei- 
chengruppen. 
SC: Enthält 
schirmfarbe. 
DE: Gibt an, ob eine alte 
Grafik im Speicher ist. 
1,J: Zählvariablen 

ME$: Gibt die erlaubten 
Tasten an. 


die Bild- 
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1 
i1'!% * 
12'% SUPER-GRAF I * 
131% * 
14% Copyright by * 
151% * 
16! x Uwe Klosa * 
171% * 
18!'!% * 
19 ! % Benoetigte Geraete * 
20 ! % TI9PY/4AA Konsole + 
21 '% Ext. Basic * 
22 ! %* Disk-Drive oder * 
231% Kass. -Rekorder * 
24 'ı% * 
26 ! % Speicherbelegung + 
271% 7591 Bytes * 
28! * * 
ZU KKRKRKRKRRKRRKKRRTKKKRTKTTR 


100 ON WARNING NEXT :: OPTIO 
N BASE 1 :: ON BREAK NEXT 
CALL TITEL :: RANDOMIZE 
110 DIM ZE$(24) ,CH$(104),SP$ 
(4) ,VO(14),HI(14):: DE=-1 
120 CALL LOES(ZES(),CH#(),SP 
$(),VOC(),HI(),DE,SC) 

130 CALL HAUP 

140 ME$S="SLDEG" :: 
(ME$,K) 

150 IF K=83 THEN CALL SAVE(Z 
ES) ,CHS(), SPS) ,VOO),HIC),S 
c) 


CALL SPRU 


160 IF K=76 THEN CALL LADE(Z 
ES) CHE) ,SPSC) ,VOO),HIC),S 
C,DE) 

170 IF K=71 THEN CALL GRAF (Z 
ES) ,CHE(),SPSC) ,VOC),HIO,S 
C,DE):: CALL DELSPRITE (#1) 
180 IF K=68 THEN 120 

190 IF K=69 THEN CALL ENDE 
200 IF K=0 THEN 140 ELSE 130 
210 SUB LOES(ZES(),CH$(),SP$ 
0,VO0),HIC),DE,SC) 

220 IF DE>-1i THEN CALL LOFR( 


WE):: IF WE=O THEN SUBEXIT 

230 FOR I=1 TO 24 :: ZE$(I)= 

RPT$(" ",28):: NEXT I :: FOR 
Ist TO 4 :: SPE(DI=RPTE(" " 
‚24):: NEXT I 

240 FOR I=1 TO 14 :: VO(TDI=2 
ı: HI(DI=1 1: NEXT I :: $c® 

8 :: FOR I=1 TO 104 :: CH$(I 
)="000"KRPTE(" ",16):: NEXT 
I :: DE=0 

250 SUBEND 

260 SUB SPRU(ME$,K) 

270 CALL KEY(3,K,S):: IF $=0 


THEN 270 
280 FOR I=1 TO LEN(MES):: IF 
KeASC (SEGS(MES, I, 1) ) THEN SU 
BEXIT 
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K=0 


290 NEXT I 
110,15):: 

300 SUBEND 

310 SUB HAUP 

320 CALL LEER :: RESTORE 340 

330 FOR I=1 TO 5 :: READ As 

DISPLAY AT(2%1+6,5) :As 
NEXT I 

340 DATA S> GRAFIK SPEICHERN 
‚L> GRAFIK LADEN,6> AUFRUF D 
ER GRAFIK,D> GRAFIK LOESCHEN 
‚E> ENDE 

350 SUBEND 

360 SUB SAVE (ZE$() ,CH$(),SP$ 
0,VO0),HIO,SC) 

370 CALL FRAG(NA®,NU):: OPEN 
#NU: NA$, OUTPUT , SEQUENTIAL,I 
NTERNAL,FIXED 80 

380 FOR I=1 TO 24 STEP 3 :: 
PRINT #NU:ZES(I) ,ZE$(I+1),ZE 

$(1+2):: NEXT I 

390 FOR I=1 TO 14 STEP 2 :: 
PRINT #NU:VO(I),HI(I) ,VOCI+ 
),HI(I+1):: NEXT I 

400 PRINT #NU:SP$(1),SP$(2), 
SP$(3) ,SP$(4),SC 

410 FOR I=1 TO 104 STEP 8 :: 
PRINT #NU:ICHS(I) ,CHS(I+1),C 
H$ (I+2) ,CH$(I+3) ,CHS(I+4) ,CH 

$(1+5) ,.CHS(I+6) ,CHS(I+7):: N 
EXT I :: CLOSE #NU 

420 SUBEND 

430 SUB FRAG(NA$,NU) 

440 CALL LEER :: DISPLAY AT( 
1,1): "D(ISKETTE ODER K(ASSET 
TE ?i®" 3: ACCEPT AT(1,28) VAL 
IDATE ("DKAdk") AS 

450 IF A$="D" OR A$="d" THEN 
NAS="DSK1" ELSE NAs="C51" 

460 DISPLAY AT(3,1):"DATEINU 
MMER ?:" :: ACCEPT AT(3,14)V 
ALIDATE(DIGITI:NU :: IF NU<O 
OR NU>2S5 THEN 460 

470 DISPLAY AT(5,1):"DATEINA 
ME ?3" ACCEPT AT(5,13) VAL 
IDATE (UALPHA, DIGITISIZE(10): 
N® :: NAS=NASk"., "EN® 

480 SUBEND 

490 SUB LADE (ZE$(),CH$(),SP$ 
0),VO0),HIC),SC,DE) 

500 CALL FRAG(NA$,NU):: OPEN 
#NU:NA$, INPUT ‚SEQUENTIAL,I 
NTERNAL,FIXED 80 

510 FOR I=1 TO 24 STEP 3 :: 
INPUT #NU:ZES(I) ,ZES(I+1),ZE 

$(1+2):: NEXT I 

520 FOR I=1 TO 14 STEP 2 :: 
INPUT #NU:VO(I) HIT) ,VO(I#+1 
),HICI+1):5 NEXT I 

530 INPUT #NU:SP$(1),SP$(2), 
SP$(3),SP6(4),SC 


CALL SOUND(10, 


540 FOR I=i TO 104 STEP 
INPUT #NU:SCHS(I) ,CHS(I+1),C 

HS(1+2) ,CH$(1+3) ,CH8(I+4),CH 

$(1+5) ,CHS(I+6) ,„CHSLI+7):: N 

EXT I CLOSE #NU 

550 SUBEND 

560 SUB LEER 


570 CALL CLEAR :: CALL SCREE 
N(5):: FOR I=1 TO 8 :: CALL 
COLOR (I,2,16):: NEXT I 

3580 SUBEND 

590 SUB ENDE 

600 CALL LEER :: DISPLAY AT( 


1,1): "WOLLEN SIE WIRKLICH BE 
ENDEN?" 

610 CALL SPRU("JIN",K):S: IF K 
=74 THEN END ELSE IF K=78 TH 
EN SUBEXIT ELSE 610 

620 SUBEND 

630 SUB LOFR (WE) 

640 CALL LEER :: DISPLAY AT( 
1,1):"GRAFIK WIRKLICH LOESCH 
EN ?" 

650 CALL SPRU("JN",K):: IF K 
=74 THEN WE=1 ELSE IF K=786 T 


HEN WE=0 ELSE 650 
660 SUBEND 

670 SUB GMEN 

680 CALL LEER :: RESTORE 700 
690 FOR I=1 TO 3 :: READ A$ 


:ı DISPLAY AT(2%1+8,5):A$ 
NEXT I 

700 DATA D> ZEICHENDEFINITIO 

N,G> GRAFIK ERSTELLEN,8)> QUI 

T 

710 SUBEND 

720 SUB GRAF (ZE$(),CH$(),SP$ 
(),VO0),HI(),SC,DE) 

730 CALL CHARSET CALL GME 

:: CALL SPRU("DG@",K):: IF 

K=68 THEN CALL DEFI(CHS()): 
: DE=1 CALL DELSPRITE (#1) 

740 IF K=71 THEN CALL ERST(Z 

ES) ,CHS(),SPS() ,VO(),HIC),S 

C,DE):: CALL DELSPRITE(#1):: 
DE=1 ELSE IF K=81 THEN SUBE 

xıT 

750 GOTO 730 

760 SUBEND 

770 SUB ERST (ZE$(),CH$(),SP$ 
0,VOt),HI(),SC,DE) 

780 X=16 :: Y=12 :: CALL CHA 

R(33, "00003C3C3C3C"):: CALL 

BILD(ZES(),CHS(),SPS(),VO0), 

H1(),SC,DE) 

790 CALL SETCI(X,Y,SC):: CALL 
KEY(0,K,S):: IF S=0 THEN 79 
0 

800 IF K=3 THEN CALL BEST(I, 

x,Y):: CALL ERH(VO(T),1,16): 
! CALL COLOR(I,VO(T),HICTIDE 
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LSE IF K=4 THEN CALL BEST(I, 
X,Y)ıı CALL ERH(HI(TDI, 1,16): 
: CALL COLOR(I1,VO(I),HI(T)) 
810 IF K=6 THEN CALL ERH(SC, 
1,16):: CALL SCREEN(SCIELSE 
IF K=15 THEN SUBEXIT ELSE IF 
K=1 THEN CALL EMEN(ZES(),CH 
8(),VO0),HIO,SC) 

820 IF K=8 THEN X=-X :: CALL 
ERH(X,1,32)ELSE IF K=9 THEN 
CALL ERH(X,1,32) 

830 IF K=10 THEN CALL ERH(Y, 

1,24)ELSE IF K=11 THEN Y=-Y 

ı: CALL ERH(Y,1,24) 

840 IF K)39 AND K<144 THEN C 

ALL DRUC(K,%X,Y,ZES(),SPs()): 
: GOTO 790 ELSE 790 

850 SUBEND 

860 SUB ERH(I,MI,MA) 


870 IF I1>0 THEN D=1 ELSE D=- 
1 :: I=ABS(I) 
880 I=1I+D :: IF I<MI THEN I= 


MA ELSE IF I>MA THEN I=MI 


890 SUBEND 

900 SUB SETC(X,Y,SC) 

910 CALL COLOR(#1,1):: Xi=X% 
8-7 :: Yi=eY%8-7 :: IF SC)2 T 
HEN FA=2 ELSE FA=16 

920 CALL SPRITE(#1,33,FA,Yi, 
x1) 

930 SUBEND 

940 SUB DRUC (K,X,Y,ZE$(),SP$ 
0) 

950 CALL HCHAR(Y,X,K):: IF X 


<3 THEN SP$(X)=SEG$(SPE(X),1 
‚Y-1)KCHRS (K)RSEGSISPSI(X) ,Y+ 
1,24-Y) 

960 IF X>30 THEN SPS (X-28)=8 
EG$ (SP$(X-28) ,1,Y-1)&CHR$(K) 
&SEG$ (SPS (X-28) ,Y+1,24-Y) 
970 IF X>2 AND X<31 THEN ZE$ 
(YI=SEGS(ZES(Y),1,X-3) ECHRS$( 
KIRSEGS(ZES(Y),X-1,30-X) 

980 SUBEND 

990 SUB BEST(A,X,Y) 
1000 CALL GCHAR(Y,X,B) 
NT (B/8) -3 

1010 SUBEND 

1020 SUB DEFI(CH$()) 
1030 ZE=33 :: CALL CHAR(33," 
FF818181818181FF" ,34, "FFFFFF 


A=1I 


FFFFFFFFFF"):S: %=13 :: Yal 

1040 CALL LEER :: FOR I=1 TO 
:: FOR J=1 TO =: CALL H 

CHAR (1,J+12,ZE):: NEXT J :: 

NEXT I :: CALL DMEN 

1050 CALL SETC(X,Y,2):2: CALL 

SPRU("I10OESDXU@",K):: IF K=4 


9 THEN ZE=34 ELSE IF K=48 TH 


EN ZE=33 ELSE IF K=81 THEN S 
UBEXIT 


1060 IF K=69 THEN Y=-Y :: CA 
LL ERH(Y,1,8)ELSE IF K=88 TH 
EN CALL ERH(Y,1,8)ELSE IF K= 
83 THEN X=-X :: CALL ERH(X,1 
3,20)ELSE IF K=68 THEN CALL 
ERH (X, 13,20) 

1070 IF K=85 THEN CALL UMRE( 

CHS())ELSE CALL HCHAR(Y,X,ZE 
:: GOTO 1050 

1080 DISPLAY AT(20,1):"VERAE 

NDERUNGEN VORNEHMEN ?" :: CA 

LL SPRU("IN",K):: IF K=74 TH 

EN CALL DMEN :: GOTO 1050 EL 

SE IF kK=0 THEN 1080 

1090 DISPLAY AT(22,1): "NEUES 
ZEICHEN ?" CALL SPRU("JN 

".K)i: IF K=74 THEN 1030 ELS 

E IF K=0 THEN 1090 

1100 SUBEND 

1110 SUB UMRE(CHS$()) 

1120 DISPLAY AT(18,1): "WELCH 

ES ZEICHEN(ASCII) ?" ACCE 

PT AT(18,26) VALIDATE(DIGIT)IS 

IZE(3):ZE :: IF ZE<40 OR ZE> 

143 THEN 1120 

1130 CH$(ZE-39)=RPT$("0",3-L 

EN(STRS(ZE) ) I) KSTRS(ZE)IK"" 

1140 FOR I=1 TO ger"; 

: FOR J=13 TO 16 :: CALL GCH 

AR(1,J,6):: C$=CHECHRE(G):: 

NEXT J 

1150 CALL WERT(CS$,CHS$(ZE-39) 

car" FOR J=17 TO 20 

12 CALL GCHAR(1,J,6):: Cs=C# 

ECHRS(G):: NEXT J 

1160 CALL WERT (C$,CH$(ZE-39) 
2: NEXT I :: DISPLAY AT(12, 

1):SEGS(CH$(ZE-39) ,4,16) 

1170 SUBEND 

1180 SUB WERT (C$,D$) 

1190 E= FOR I=0 10 3 :: 

IF SEG$(C$,4-I,1)=CHRE(34) TH 

EN D=2*1 ELSE D=0 

1200 E=E+D :: NEXT 

0123456789 ABCDEF" 

1210 D$=D$RSEGS (HS, E+1,1) 

1220 SUBEND 

1230 SUB BILD(ZE$(),CH$(),SP 

$(),VO(),HI(),SC,DE) 

1240 CALL CLEAR IF DE=0 T 

HEN 1280 

1250 FOR I=1 TO 104 :: V=VAL 
(SEGS(CHS(I),1,3)):: IF V>39 
THEN CALL CHAR (V,SEGS(CHS(I 

),4,16)) 

1260 NEXT I :: FOR I=1 TO 24 
:: DISPLAY AT(I,1):ZES(T):: 
NEXT I 

1270 FOR I=1 TO 2 :: FOR J=1 
TO 24 :: CALL HCHAR(J,I,ASC 


(SEGS(SPS(I),J,L))):: CALL H 


I H$=" 
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CHAR (J, 1+30, ASC (SEG$S (SP$(I+2 


),J,1)))25 NEXT I :: NEXT I 
1280 CALL SCREEN(SC):: FOR I 
=1 TO 14 :: CALL COLOR(I,VO( 
DD,HItII):: NEXT I 

1290 SUBEND 

1300 SUB DMEN 

1310 RESTORE 1330 

1320 FOR I=1 TO 4 :: READ A$ 


ss DISPLAY AT(IX#2+16,1):A% 
ss: NEXT I 
1330 DATA O> PUNKT AUS...1> 
PUNKT EIN,E> HOCH. «v2 222.%? 
RUNTER,S> LINKS. ......D> REC 
HTS 
1340 DATA U> UMRECHNEN. ..0> 
QUIT 
1350 SUBEND 
1360 SUB TITEL 
1370 CALL CLEAR :: CALL SCRE 
EN(2):: FOR I=si TO 14 CAL 
L COLOR (I,INT(RND#13+3),2):: 
NEXT I 
1380 FOR I=1 TO 32 :: CALL H 
CHAR (1,1,42):: CALL HCHAR (24 
‚1I,42):: NEXT I 


1390 FOR I=1 TO 24 :: CALL H 
CHAR (1,1,42)::5 CALL HCHAR (I, 
32,42):: NEXT I DISPLAY A 
T(S5,9): "TERRA - SOFT" :: DIS 
PLAY AT(?7,9):"Praesentiert" 
1400 DISPLAY AT(10,8): "SUPER 
- GRAF I" :: DISPLAY AT(I11, 
8): "se=s==szzezzunen" :: DISPL 
AY AT(14,1):"fuer TI99Y/AA + 
EXT + Kas/Dis" 
1410 DISPLAY AT(16,1):"Idee 
& Ausfuehrung:Uwe Klosa" 
DISPLAY AT(20,5):"(c) Uwe Kl 
osa 1985" 
1420 FOR I=1 TO 10 


FOR J= 


1 TO 14 :: CALL COLOR(J,INT( 
RND%#13+3),2):: NEXT J :: NEX 
TI 

1430 SUBEND 


1440 SUB EMEN(ZE$(),CH$(),VO 
0),HIC),SC) 

1450 RESTORE 1460 :: 
ARSET :: CALL SCREEN(16):: 
OR I=1 TO 5 :: READ A 
SPLAY AT(I+19,1):A8 :: 
I 

1460 DATA FCTN E>HOCH 77 FET 
N X>RUNTER,FCTN SPLINKS / FC 
TN DYRECHTS,FCTN 1>VOR+1 7/ 

FCTN 2>HIN+1 

1470 DATA FCTN 8>SCFAR+1 / F 
CTN P>QUIT,FCTN ?7>AUFRUF DIE 
SES MENUES 

1480 CALL KEY(0,K,8):: 
0 THEN 1480 


CALL CH 
F 
s: DI 
NEXT 


IF S= 





1490 FOR 


I=s1 TO 56 :: 
SEGS(CH$S(T), 1,3)):5 


V=VAL( 
IF v>39 


EXT I :; 


oz 


CALL SCREEN (SC 
ALL CHAR (33, "00003C3C3C 





THEN CALL CHAR (V,SEGS(CHS (I) sc") 
‚9,16)) 1510 FOR 1=19 TO 24 :: DISPL 
1500 NEXT I :: FOR I=1 TO 14 AY AT(I,1):ZES(I):: NEXT I 
s: CALL COLOR(I,VO(TI),HI(T) 1520 SUBEND 
DER TI ALS SCHREIB-:::. 5 
schweifte Klammer, Til- 


MASCHINEN LEHRER 


Das Programm Touch 
Typing Teacher ist ein 
Schreibmaschinenlehr- 
gang für den TI99/4A. 

Es nutzt fast allen gra- 
phischen Möglichkeiten 
des TI99/4A und auch 
der Ton kommt nicht zu 
kurz. Wenn man intensiv 
mit dem Programm arbei- 
tet, kann man nach 
einiger Zeit die Tastatur 
des TI fast blind beherr- 
schen, aber auch wenn 
man sich nicht so inten- 
siv mit dem Programm 
beschäftigt, ist es nicht 
abzustreiten, daß man die 
Tastatur wesentlich 
besser beherrscht als vor- 
her und sich auch die 
Schreibgeschwindigkeit 
stark gesteigert hat. Das 
Programm stellt also eine 
wirkliche Alternative zu 
dem von Texas Instru- 
ments vertriebenen Pro- 


gramm Touch Typing Tu- 
tor dar. 
Der Benutzer kann 


selbst entscheiden, wann 
er genug von einer Übung 
hat, oder, wenn er glaubt, 
eine Übung gut genug zu 
beherrschen, kann er sich 
einfach eine andere 
Übung heraussuchen. 

Aber natürlich kann 
man mit dem Programm 
nicht nur üben, man kann 
z.B. auch auf Zeit schrei- 
ben (der Computer mißt 
die Zeit), oder Texte 
nachschreiben, die der 
Computer dann auf ihre 
Richtigkeit (orthographi- 
sche) überprüft. 

Das Programm besitzt 
eine benutzerfreundliche 
Menütechnik, die es je- 


dem Benutzer kinder- 
leicht macht, mit dem 
Programm umzugehen. 

Nach dem Laden des 
Programms und Eingabe 
von RUN oder vor dem 
Laden von RUN „CS1“ 
erscheint nach ein paar 
Sekunden das erste Titel- 
bild. Nach Drücken einer 
Taste wird der Bildschirm 
schwarz, und nach cirka 
15 Sekunden erscheint 
das eigentliche Titelbild, 
mit der Tastatur des Ti99 
/4A, auf dem Bildschirm. 
Wenn Sie nun eine Taste 
drücken, erscheint das 
Hauptmenü. Das Haupt- 
menü umfaßt 6 Wahl- 
möglichkeiten. Wenn Sie 
aus irgendeinem Unter- 
programm wieder zum 
Hauptmenü zurückkehren 
wollen, dann müssen Sie 
nur bei einer CALL KEY 
Abfrage FCTN 9 einge- 
ben (drücken). 

Wenn Sie nun Punkt 1 
drücken, können Sie den 
Umgang mit der Tastatur 
etwas üben. Dazu druckt 
der Computer die Tasta- 
tur auf dem Bildschirm 
aus. Dann wird kurz er- 
klärt, mit welchen Ta- 
sten Sie in welches Unter- 
programm kommen. Mit 
FCTN 8 können Sie den 
Computer dazu veranlas- 
sen, daß er die einzel- 
nen Symbole auf die Tas- 
tatur druckt, da diese ja 
nicht vorhanden sind. 
Sind die Symbole ge- 
druckt, können Sie die 
Symbole wieder löschen. 
Dieses Unterprogramm 
dient nur als Gedanken- 
stütze. Mit FCTN 9 kön- 


nen Sie zum Hauptmenü 
zurückkehren. Wenn Sie 
aber nun irgendeine ande- 
re Taste drücken, be- 
ginnt der Computer mit 
dem „Kennenlemen der 
Tastatur‘‘. Auf dem Bild- 
schirm ist nun die Tasta- 
tur des Ti99/4A zu se- 
hen, allerdings ohne Sym- 
bole. Wenn Sie nun ir- 
gendeine Taste drücken, 
erscheint das Symbol, 
welches auf der Taste zu 
sehen ist, auf der ent- 
sprechenden Taste auf 
dem Bildschirm und ver- 
schwindet kurz danach 
wieder. Wollen Sie dieses 
Symbol also länger sehen, 
müssen Sie nur den Fin- 
ger länger auf der ent- 
sprechenden Taste lassen. 

Mit diesem Unterpro- 
gramm können Sie ler- 
nen, wo die einzelnen Ta- 
sten liegen. Wie schon be- 
schrieben, können Sie 
mit FCTN 9 zurück ins 
Hauptmenü und mit 
FCTN 8 die Symbole auf 
die Tasten drucken las- 
sen. Bei diesem Unterpro- 
gramm und bei allen an- 
deren sollten Sie versu- 
chen, nicht auf die Ta- 
statur zu sehen, da sonst 
der Lernerfolg nicht sehr 
groß ist. 

Folgende Symbole 
können durch Drücken 
der entsprechenden Taste 
nicht‘auf den Bildschirm 
gebracht werden (gilt nur 
für 1 und 2 aus dem 
Hauptmenü): 
alle Kleinbuchstaben (gilt 
auch für 3 und 4) 
die Zeichen Links ge- 
schweifte Klammer, Dop- 
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de, Del 

Wenn Sie eines dieser 
Zeichen eingeben, ertönt 
ein Warnton (nur bei 1 
und 2), bei 3 und 4 er- 
scheinen andere Zeichen, 
da die ASCII-Codes 
dieser Zeichen mit ande- 
ren Zeichen belegt wur- 
den (CALL CHAR). 

Wenn Sie 2 drücken, 
kommen Sie in ein Unter- 
programm, welches über- 
prüft, wie gut Sie sich auf 
der TI-Tastatur ausken- 
nen. Auf dem Bildschirm 
erscheint nun wiederum 
die TI-Tastatur ohne 
Symbole. Allerdings er- 
scheint nun immer ein 
Symbol auf der Bild- 
schirmtastatur, welches 
Sie auf der TI-Tastatur 
finden müssen (blind, oh- 
ne auf die Tastatur zu 
sehen). Wenn Sie die rich- 
tige Taste gedrückt ha- 
ben, ertönt eine kurze 
„Siegesmelodie“ und es 
erscheint ein neues Sym- 
bol. Wenn Sie allerdings 
falsch gedrückt haben, er- 
scheint das falsche Sym- 
bol nur für kurze Zeit 
auf der Bildschirmtasta- 
tur und es erklingt eine 
kleine Melodie, die den 
falschen Tastendruck 
akustisch erkennen läßt. 
Falls Sie eine der nicht 
erlaubten Tasten gedrückt 
haben (siehe bei 1 alle 
Zeichen mit einem ASC 
II Code über 96), dann 
ertönt ein kurzer Warn- 
ton. 

Wenn sie nun einige 
Zeit mit dem Unterpro- 
gramm gearbeitet haben 
und Sie wollen zum 
Hauptmenü zurückkeh- 
ren, müssen Sie ebenfalls 
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LO KRRRRKRRKNIKRTITIIIIITN N 
iı1ı%* * 
12 ! TOUCH TYPING TEACHER* 
131% % 
14! % Copyright by * 
151% Dirk Junghans * 
16! %* * 
19 ! % Benoetigte Geraete * 
20 ! % TI99/4A Konsole + 
21! %* Ext. Basic * 
221% * 
26 ! % Speicherbelegung * 
271% 10186 Bytes * 
28! %* * 
ZI U KKRRKKKKKNKRKKKRKITRRRT 
30 ! 


100 OPTION BASE 1 :: GOTO 22 
16) 


110 CALL CHAR :: CALL HCHAR 
ss CALL CLEAR :: CALL SCREEN 
: CALL COLOR :: CALL CHARS 
ET :: CALL SOUND :: CALL KEY 
120 CALL TASTA :: CALL SONDE 


=: CALL ANZ 
: CALL ABFEING 
130 JIN$="" 
140 1,5,SE,WA,DJ,DD,I,K,S,X1 
‚Y1,ZAE,11,12,T1I 
150 DATA ABC 
160 !@P- 
170 !%bei fragen: 
180 !%dirk junghans 
190 !%am fort-biehler 9 * 
200 !%6503 mz-kastel * 
ZOO V RRRRKRRRRRRRTINTNNTTINHR 
220 CALL CLEAR 
230 CALL SCREEN(10) 
240 FOR 1=2 T0 8 :: 
OR(1,5,10):: NEXT I 
250 CALL COLOR (13,2,10,14,2, 
10) 
260 CALL CHAR (131, "O0O"&RPTS( 
"01",7),132, "FC8485858484848 
2",133, "008040408000000C * ) 
270 CALL CHAR (134, "OLFF80C04 
060381C",135,"8C9921213D0505 
05",136, "1 2BASASABAAI1AIAL") 
280 CALL CHAR (137, "OEO301",1 
38, "C4E2311018000703",139,"2 
24C90204040A0EO0*") 
290 CALL CLEAR 
300 DISPLAY AT(1,1):"DJIS" : 
ı DISPLAY AT(3,6):"EIN PROGR 
AMM VON" 5: DISPLAY AT(5,8): 
"DIRK JUNGHANS" 
310 DISPLAY AT(8,5):"FUER DE 
N TI99/A4A VON" <<: DISPLAY AT 
(16,6): "TEXAS INSTRUMENTS" 
320 DISPLAY AT(19,1):"DAS PR 
OGRAMM WURDE DER. .....KLASSE 

10B DER HLS WIESBADENGEWIDM 


ss CALL EING : 


* 
* 


CALL COL 


129 


ET." 

330 DISPLAY AT(11,13) :CHR$(1 
SI) SCHRSL13Z2) ICHRS(133):: DI 
SPLAY AT(12,13) :CHRS$(134) 5CH 
R$ (135) SCHR$ (136) 

340 DISPLAY AT(13,13) :CHR#(1 
37) SCHR$ (138) JSCHR$ (139) 

350 DISPLAY AT(24,3): "PRESS 
A KEY TO CONTINUE" 
360 CALL KEY(0,K,S):: 
THEN 360 

370 CALL CLEAR CALL CHARS 
ET :: ON BREAK NEXT 
380 CALL SCREEN (2) 
390 FOR I=0 TO 14 :: 
LOR(I,2,2):: NEXT I 

400 !@P+ 

410 DIM M(5),X(64),Y(64) ,EI$ 
(10) ,NAS$(10) 

420 '!@P- 

430 RESTORE 1920 
TO 64 :: READ Yi,X1 :: 
Yi 3:1 X(D=X1 :: NEXT I 

440 CALL CHAR(104,RPTS("O",1 
S)&"r1",105,RPTS("O",12)&"FFO 
0",106,RPT#("0",14)K"81") 

450 CALL CHAR(107,RPTS("O",1 
4)&"80", 108, "0305"ERPTE("09" 
‚6), 109, "C3AS"&RPTS("9",12)) 

460 CALL CHAR(110, "COA090909 
OPOFOFO", 111, "OPOAOCOF",112, 
"FFOOOOFF", 113, "PPSASCFF" ‚11 
4,"905030F0*) 

470 CALL CHAR(101, "O000EABSE 

585E5",97, "304878CA2020203A" 
‚102, "00E384E8888483* ‚99, "00 

374282824232" , 115, "748484661 

S15E5") 

480 Mi1)=3 :: 

=5 :: M(4)=4 :: M(5)=4 

490 CALL TASTA(M()):: CALL S 

ONDER :: CALL ANZIXO),YO)ı: 
DISPLAY AT(2,4): "TOUCH TYPI 

NG TEACHER" 

500 DISPLAY AT(21,2):"(C) 

85 BY DIRK JUNGHANS" 

510 DISPLAY AT(24,4): "PRESS 

ANY KEY TO BEGIN" 

520 CALL SCREEN(16) 


IF S=0 


CALL CO 


FOR I=1 
Y(D)= 


M(2)=4 M(3) 
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3530 FOR I=0 TO 8 :: CALL COL 
OR(I,2,16):: NEXT I 
540 FOR I=9 TO 12 :: CALL CO 


LOR(1,5,16):: NEXT I 

550 CALL KEY(0,K,S):: 
THEN 550 

560 CALL CLEAR 

570 DISPLAY AT(1,1):"DJIS" 

580 DISPLAY AT(5,1):"1 =>KEN 

NENLERNEN MIT DER. ..2.....TAS 

TATUR" 

590 DISPLAY AT(8,1):"2 =)WIE 


IF S=0 





1 JEDOCH MITeeeeeaenen.. VOR 

GEGEBENEN ZEICHEN" 

600 DISPLAY AT(11,1):"3 =)NA 

CHSCHREIBEN VORHER. » 22. . + «EI 

NGEGEBENENER TEXTE" 

610 DISPLAY AT(14,1):"4 =)SC 

HREIBEN AUF ZEIT VON. ...».FR 

EIEN TEXTEN" 

620 DISPLAY AT(17,1):”5 =>DR 

UCKEN DER TASTATUR AUF....BI 

LDSCHIRM" 

630 DISPLAY AT(20,1):"6 =)EN 

DE" 

640 DISPLAY AT(24,4): "CHOOSE 
A KEY TO BEGIN" 

650 CALL KEY(0,K,S):: 
THEN 650 

660 IF K<49 OR K)54 THEN 650 

670 ON K-48 GOTO 740, 1470,85 

0,1570, 1850, 680 

680 CALL CLEAR 

690 DISPLAY AT(1,1):"DJIS* : 
ı DISPLAY AT(10,2): "WOLLEN $ 
IE EIN NEUES" 

700 DISPLAY AT(11,2):"PROGRA 

MM LADEN ?7?" 

710 DISPLAY AT(15,10):"(J/N) 
" 2: ACCEPT AT(15,16)BEEP VA 

LIDATE("J","N"I)SIZEILI:ING 

720 IF JN$="N" THEN STOP 

730 CALL CHARSE CALL CLE 
AR :: RUN "cSi" 

740 CALL CLEAR 

750 CALL TASTA(M()) 

760 CALL SONDER 

770 DISPLAY AT(1,1):"DJIS" : 
: DISPLAY AT(3,2):"NR. 1" 

780 DISPLAY AT(20,2): "PRESS 

-FCTN 8 TO PRINT KEYS" 

790 DISPLAY AT(21,2):"PRESS 
FCTN 9 TO RETURN" 

800 DISPLAY AT(24,2): "PRESS 
NOW A KEY TO 60 ON" 

810 CALL KEY(0,K,S):: 
THEN 810 

820 DISPLAY AT(20,1):RPTS("" 
‚28):: DISPLAY AT(21,1):RPTS 
("®,28):: DISPLAY AT(24,1):R 
PTS("",28) 

830 CALL EING(YO,X0) 

840 G0TO 560 

850 CALL CLEAR :: ZAE=O 

860 PRINT "JETZT KOENNEN SIE 
EINEN": "VON IHNEN EINGEGEBE 
N TEXT": "NACHSCHREIBEN. ZUERS 
T,MUESSEN" 

870 PRINT "SIE EINEN 10 ZEIL 
IGEN TEXT": "EINGEBEN. DANACH 
ERSCHEINT" 

880 PRINT "DER TEXT IMMER ZE 
ILE FUER": "ZEILE AUF DEM BIL 


IF S=0 


IF S=0 


130 


DSCHIRM, " 
890 PRINT "DIE SIE DANN NACH 
SCHREIBEN": "MUESSEN.": : : 
900 PRINT TAB(2): "PRESS ANY 
KEY TO CONTINUE" 
910 DISPLAY AT(1,1):"DJIS" : 
: DISPLAY AT(3,2):"NR.3" 
920 CALL KEY(0,K,S):: IF S=0 
THEN 920 IF K=15 THEN 56 
o 
930 CALL CLEA 
(1,1):"DJIS" 
940 DISPLAY AT(3,5): "EINGABE 
DES TEXTES" 
950 DISPLAY AT(5,1):"START" 
ı: DISPLAY AT(17,25): "ENDE" 
960 DISPLAY AT(12,3): "PRESS 
ANY KEY TO START" 
970 CALL KEY(0,K,S) 


DISPLAY AT 


IF S=0 


THEN 970 :: IF K=15 THEN 56 
16) 
980 DISPLAY AT(12,3):RPTS("" 
‚22) 


990 FOR I=1 TO 10 

1000 ACCEPT AT(I+3,1):EIS(T) 
1010 NEXT I 

1020 DISPLAY AT(20,1):"DIE E 
INGABE IST BEENDET" 

1030 DISPLAY AT(24,2): "PRESS 
ANY KEY TO CONTINUE" 

1040 FOR I=1 TO 50 :: 
1050 CALL KEY(0,K,S):: 

0 THEN 1050 
560 

1060 CALL CLEAR :: ZAE=0 
1070 DISPLAY AT(1,1):"DJIS" 
:: DISPLAY AT(3,2):"NR. 2" 
1080 DISPLAY AT(10,2):"r DIE 

SEN TEXT NACHSCHREIBEN" 

1090 DISPLAY AT(6,1):RPTS("- 
".28): :RPTS("-",28):: DISPL 

AY AT(IL,LI:RPTE("=",28): IR 

PTs("=",28) 

1100 FOR I=1 TO 10 

1110 DISPLAY AT(12,1)BEEP:EI 

sn 

1120 


NEXT I 
IF $S= 
IF K=15 THEN 


ACCEPT AT(7,1):NAS(T) 
41130 NEXT I 

1140 DISPLAY AT(15,6): "BITTE 
WARTEN !!ı“ 

1150 FOR I=1 TO 10 

1160 IF NAS(I)<YEIS(CI)THEN G 
1430 

NEXT I 

1180 DISPLAY AT(18,2):"SIE M 
ACHTEN "}ZAEJ)" FEHLER” 

1190 DISPLAY AT(19,2): "BEIM 
ABSCHREIBEN" 

1200 DISPLAY AT(22,1):"1 =)D 
RUCKEN DER BEIDEN TEXTE" 
1210 DISPLAY AT(23,1):"2 =>N 





OCHMAL NACHSCHREIBEN" 

1220 DISPLAY AT(24,1):"FCTN 
9 =)ZURUECK ZUM MENUE" 

1230 CALL KEY(0,K,S):: IF S= 

O THEN 1230 :: IF K=15 THEN 
560 

1240 IF K=49 THEN 1260 

1250 IF K=50 THEN 1060 ELSE 
1230 

1260 CALL CLEAR 

1270 DISPLAY AT(1,1):"DJIS" 
s; DISPLAY AT(3,2):"NR. 2" 
1280 DISPLAY AT(24,4): "PRESS 
A KEY TO PRINT" 

1290 CALL KEY(0,K,S):: IF $S= 
O THEN 1290 :: IF K=15 THEN 
560 

1300 DISPLAY AT(4,1): "EINGAB 
ETEXT" 

1310 FOR I=1 TO 10 :: DISPLA 
YAT(I+#S,LI:SEISCT)SS NEXT I 
1320 DISPLAY AT(19,1):RPTE(" 
-",28): :RPTS("-",28) 

1330 DISPLAY AT(18,1): "NACHS 
CHREIBE TEXT" 


1340 DISPLAY AT(24,2): "PRESS 
ANY KEY TO CONTINUE" 

14350 FOR I=i1 TO 10 

1360 DISPLAY AT(20,1):NAS(T) 

1370 FOR I2=1 TO 50 :: NEXT 
12 

1380 CALL KEY(0,K,S):: IF S= 
0 THEN 1370 :: IF K=15 THEN 
560 

1390 NEXT I 


1400 DISPLAY AT(23,1):"1 =>N 

OCHMAL NACHSCHREIBEN" 

1410 DISPLAY AT(24,1):"FCTN 
9 =)ZURUECK ZUM MENUE" 

1420 CALL KEY(O0,K,S):: IF $S= 
O THEN 1420 :: IF K=15 THEN 
560 :: IF K=49 THEN 1060 ELS 

E 1420 

1430 FOR Ii=1 TO 28 

1440 IF SEGS(NAS(I),I1,1)<>5S 
EG#(EIS(I),I1,1)THEN ZAE=ZAE 
+ 

1450 NEXT I1 

1460 RETURN 

1470 CALL CLEAR 

1480 DISPLAY AT(1,1):"DJIS" 
ss DISPLAY AT(3,2): "NR. 2” 
1490 CALL TASTA(M()) 

1500 CALL SONDER 

1510 DISPLAY AT(20,2): "PRESS 
FCTN 9 TO RETURN” 

1520 DISPLAY AT(24,2): "PRESS 
NOW A KEY TO 60 ON" 
1530 CALL KEY(0,K,S):: 

O THEN 1530 
1540 DISPLAY AT(20,1):RPTS(" 


IF $= 
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",28):: DISPLAY AT(24,1):RPT 

s."",28) 

1550 CALL ABFEING(Y(),X0)) 
1560 GOTO 560 

1570 CALL CLEAR 

1580 TI=0 

1590 DISPLAY AT(1,1):2"DJIS" 
ss DISPLAY AT(3,2):"NR. 4" 
1600 DISPLAY AT(6,1): "BITTE 

DRUECKEN SIE EINE": "TASTE,DA 

NN BEGINNT DER": "ZAEHLER ZU 

ZAEHLEN" 

1610 DISPLAY AT(9,1): "UND SI 

E KOENNEN BEGINNEN": "MIT DEM 
SCHREIBEN. ": "VIEL GLUECK !" 
1620 DISPLAY AT(13,1):"SIE M 

UESSEN 168 ZEICHEN": "SCHREIB 

EN.DIE SCHWARZEN" 

1630 DISPLAY AT(15,1): "KAEST 

CHEN WERDEN AM ENDE": "NICHT 

MITGEZAEHLT." 

1640 DISPLAY AT(17,1):"SIE K 

OENNEN AUCH KEINE": "KORREKTU 

REN AM TEXT VOR-" 

1650 DISPLAY AT(19,1): "NEHME 

N.SCHREIBEN SIE DES-": "HALB 

BEI EINEM FEHLER": "WEITER." 
1660 DISPLAY AT(24,3): "PRESS 
ANY KEY TO START" 

1670 CALL KEY(0,K,S):: IF S= 

O THEN 1670 :: CALL CLEAR 

1680 DISPLAY AT(1,1):"DJIS" 
ss: DISPLAY AT(3,2):"NR. 4" 

1690 DISPLAY AT(4,1):"START" 
s: DISPLAY AT(11,25): "ENDE" 

1700 S=0 :: SE=S :: WA=3 

1710 CALL KEY(O0,K,S):: TI=eTI 
+1 :: IF S=0 THEN 1710 

1720 CALL HCHAR(SE,WA,K):: C 

ALL HCHAR (SE, WA+1,30) 

1730 WA=WA+1 

1740 IF WA>3O THEN WA=3 :: 5 

E=SE+1 ELSE 1750 

1750 IF NOT SE>1O THEN GOTO 
1710 

1760 DISPLAY AT(17,2):"SIE B 

RAUCHTEN FUER 168" 

1770 DISPLAY AT(18,2):"ZEICH 

EN "ITI 

1780 DISPLAY AT(19,2):"ZEITE 
INHEITEN." 

1790 DISPLAY AT(20,2): "NICHT 
SCHLECHT !!!" 

1800 DISPLAY AT(23,2):"1 =)>N 

OCH EINMAL" 

1810 DISPLAY AT(24,2):"FCTN 

9 =)ZURUECK ZUM MENUE" 

1820 FOR I=1 TO 100 :; 
I 

1830 CALL KEY(O0,K,S):: IF $S= 

O THEN 1820 :: IF K=49 THEN 


NEXT 





1570 
1840 
1850 
1860 
ı: DISPLAY AT(3,2):"NR. 
1870 CALL TASTA(M()) 
1880 CALL SONDER 
1890 CALL ANZ(X0),YO)) 
1900 DISPLAY AT(24,4): "PRESS 
A KEY TO RETURN" 
1910 CALL KEY(0,K,8):: 
0 THEN 1910 :: G0TO 560 
1920 DATA 6,4,9,23,6,8,6,10, 
6,12,6,16,9,21,6,20,6,22,6,1 
8,6,24,15,21,9,25,15,23,9,25 
‚6,22. 
1930 DATA 6,4,6,6,6,8,6,10,6 
‚12,6,14,6,16,6,18,6,20,12,2 
4,12,24,15,21,6,24,15,23 
1940 DATA 9,19,6,6,12,6,15,1 
5,15,11,12,10,9,9,12,12,12,1 
4,12,16,9,19,12,18,12,20 
1950 DATA 12,22,15,19,15,17, 
9,21,9,23,9,5,9,11,12,8,9,13 
‚9,17,15,13,9,7,15,9,9,15,15 
? 


ss IF K<>15 THEN 1830 
GOTO 560 

CALL CLEAR 

DISPLAY AT(1,1):"DJIS" 
5“ 


IF S= 


’ 

1960 DATA 9,11,15,7,9,13,6,1 

4,9,17,15, 11 

1970 !@P+ 

1980 SUB TASTA(M()):: 
1990 FOR I=si TO 5 

2000 DISPLAY AT(DJ,M(I)):"h" 
BERPTEC"I5",1O)Rr IK" 

2010 DISPLAY: AT(DJ+1,M(DI):" 
L"&RPTSC" m",10)&" n" 

2020 DISPLAY AT(DJ+2,M(I)):" 
O"&RPTS("pq",1O)&"pr" 

2030 DJ=DJ+3 

2040 NEXT I 

2050 CALL HCHAR(17,11,105,15 
Js: CALL HCHAR(19,11,112,15) 

CALL HCHAR(18,11,32,15) 

2060 CALL HCHAR(14,28,105):: 
CALL HCHAR(14,29,107):: CAL 
L HCHAR(15,28,32):: CALL HCH 
AR(15,29,110) 

2070 CALL HCHAR(16,28,112):: 
CALL HCHAR(16,29,114) 

2080 SUBEND 

2090 SUB ABFEING(Y(),XU)) 

2100 DD=INT((96-32+1)#RND) +3 
2 

2110 


DJ=5 


IF DD=32 THEN GOSUB 226 
ss GOTO 2130 ELSE 2120 

2120 CALL HCHAR(Y(DD-32),X(D 

D-32)+2,DD) 

2130 CALL KEY(0,K,S):: 

O THEN 2130 

2140 IF K=15 THEN SUBEXIT 

2150 IF K>96 OR K<32 THEN CA 


IF S= 
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0TO 213 ELSE 2160 

2160 IF K<>DD AND K=32 THEN 

GOSUB 2270 :: GOTO 2240 ELSE 
IF K<>DD THEN 2210 

2170 CALL SOUND(100,392,0):: 
CALL SOUND (100,392,0,330,0) 

ı: CALL SOUND(100,392,0,330, 
O):: CALL SOUND(200,440,0,39 
2,0) 

2180 CALL SOUND (200,392,0,33 
0,0) 

2190 IF DD<>32 THEN 220 
CALL HCHAR (18,15,32,5):: 
0 2100 

2200 CALL HCHAR(Y(DD-32),X(D 
D-32)+2,32):: GOTO 2100 

2210 CALL HCHAR(YIK-32),X(K- 
32)+2,K) 

2220 FOR I=1 TO 30 :: NEXT I 
2230 CALL HCHAR (Y(K-32) ,XIK- 
32)+2,32):: CALL HCHAR(Y(DD- 
32) ,X(DD-32)+2,DD) 

2240 CALL SOUND(100,220,0):: 
CALL SOUND(100,175,0):: CAL 
L SOUND (200, -3,0) 

2250 GOTO 2130 

2260 CALL HCHAR(18,15,30,5): 
! RETURN 

2270 CALL HCHAR(18,15,30,5) 

2280 FOR I=1 TO 30 NEXT I 

2290 CALL HCHAR (18,15,32,5): 
: RETURN 

2300 SUBEND 

2310 SUB ANZIXO,Y()) 

2320 FOR I=12 TO 59 :: IF I+ 
32390 OR 1+32<44 OR 1+32=45 
OR 1+32=58 OR 1+32=40 OR 1+3 
2=62 OR 1+32=63 OR 1+32=64 T 
HEN 2340 

2330 CALL HCHAR(Y(T),X(I) +2, 
1+32) 

2340 NEXT I 

2350 SUBEND 

2360 SUB SONDER 

2370 CALL HCHAR (15,27, 115):: 
CALL HCHAR(12,28,101) 

2380 CALL HCHAR (15,7, 115):: 
CALL HCHAR(18,7,97):: CALL H 
CHAR (18,9,99):: CALL HCHAR (1 
8,27,102) 

2390 SUBEND 

2400 SUB EING(Y(),X0)) 

2410 CALL KEY(0,K,S):: IF $= 
0 THEN 2410 IF K<)6 THEN 
2440 

2420 

2430 


GOT 


CALL ANZ(XU),YO) 

GOSUB 2510 :: GOTO 2410 

2440 IF K=15 THEN SUBEXIT 

2450 IF K<>32 THEN 2460 ELSE 
CALL HCHAR (18,15,30,5):: 60 
TO 2500 





2460 IF K)9& OR K<33 THEN CA 
LL SOUND (100, 300,3, -7,3):: 6 
OTO 2410 ELSE 2470 

2470 CALL HCHAR(Y(K-32) ,XIK- 


32)+2,K) 


2480 FOR I=1 TO 30 ::; 


NEXT I 


2 CALL HCHAR(Y(K-32) ,X(K-3 


2)+2,32) 


2490 GOTO 2410 
2500 CALL HCHAR(18,15,32,5): 


: GOTO 2410 


2510 DISPLAY AT(24,3): "PRESS 
A KEY TO ERASE KEYS" 


2520 CALL KEY(0,K,8):: 
0 THEN 2520 


IF S= 
ss DISPLAY AT(24 


‚3):RPTS("",25) 


2530 FOR I=12 TO 59 :: 
HCHAR (Y(1) ,X(1) +2,32): 
RETURN 

2540 SUBEND 


I: 


2550 !@P- 
2560 END 


DER TI 


ALS SCHREIB- 


CALL 
NEXT 


MASCHINEN 
LEHRER 


Fortsetzung von Seite 128 


wie in allen anderen Un- 
terprogrammen lediglich 
FCTN 9 drücken. 

Wenn Sie 3 drücken, 
gelangen Sie in das Unter- 
programm „Nachschrei- 
ben vorher eingegebener 
Texte‘. Nun können Sie 
‚einen vorher eingegebe- 
nen Text nachschreiben. 
Dazu erscheint zuerst ein- 
mal eine kurze Erklärung 
auf dem Bildschirm, was 
in diesem Unterpro- 
gramm gemacht werden 
muß. 

Im oberen Teil des 


Bildschirms wird jeweils 
eine Zeile angezeigt, die 
Sie dann in der Zeile 
etwas darunter nach- 
schreiben müssen. Auch 
hier müssen Sie wieder 
spätestens am Ende der 
Zeile ENTER drücken. 
Wenn Sie dies gemacht 
haben, wird die nächste 
Zeile eingeblendet, die 
Sie dann nachschreiben 
müssen. Haben Sie alle 
10 Zeilen nachgeschrie- 
ben, müssen Sie dann 
etwas warten, weil der 
Rechner dann überprüft, 


.schirm aus, 


ob Sie Fehler beim Ab- 
schreiben gemacht haben. 
Die Anzahl der Fehler 
wird dann angezeigt. Da- 
nach können Sie dann 
wieder wählen, ob Sie 
mit FCTN 9 ins Me- 
nue zurück wollen, ob Sie 
mit 2 den Text noch- 
mal nachschreiben wol- 
len oder ob Sie mit 1 den 
nachgeschriebenen und 
den nachzuschreibenden 
Text angezeigt haben 
wollen. 

Wenn Sie 4 drücken, 


können Sie messen, wie‘ 


schnell Ihre Schreibge- 
schwindigkeit ist. Zuerst 
erscheint auch hier wie- 
der eine kurze Einlei- 
tung, was in diesem Un- 
terprogramm zu machen 
ist. Wenn Sie sich die 
kurze Einleitung durchge- 
lesen haben, müssen Sie 
eine Taste drücken, da- 
mit das Programm fort- 
fährt. 

Wenn Sie 5 im Haupt- 
menü gewählt haben, 
druckt der Computer Ih- 
nen noch einmal die TI- 
Tastatur auf dem Bild- 
damit Sie 
noch einmal einen Über- 
blick bekommen, wo 
die einzelnen Tasten auf 
der Tastatur liegen. Das 
können Sie natürlich 
auch auf der richtigen Ta- 
statur machen, aber er- 
stens sollen Sie bei dem 
Programm nie auf 
die Tastatur sehen und 
zweitens gewöhnen Sie 
sich dann besser an die 
Bildschirmtastatur, wenn 
Sie z.B. mit Nr. 1 des 
Hauptmenüs arbeiten 
wollen. 

Falls Sie 6 drücken, 
können Sie das Pro- 
gramm beenden. Zuerst 
werden Sie aber noch ge- 
fragt, ob Sie ein neues 
Programm laden wollen? 
Wenn Sie ja drücken, 
gibt der Rechner automa- 
tisch die Anweisungen 
auf dem Bildschirm aus, 
um ein neues Programm 
zu laden (z.B. Rewind 
Cassette Tape). Wenn Sie 
Besitzer einer Disketten- 
station sind, müssen Sie 
nur die Zeile 780 ändern. 
Wenn Sie aber statt J, N 
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drücken, wird das Pro- 
gramm beendet. 


Variablenliste: 
STRINGS: 

JN$ — String für die 
JA/NEIN-Abfrage in 
Nummer 6 des Haupt- 
menüs 

EI$ ( ) — String (Daten- 
feld) für den nachzu- 
schreibenden Text in 
„Nachschreiben vorher 
eingegebener Texte“ 
NA$ ( ) — String (Da- 
tenfeld) für den nachge- 
schriebenen Text in 
„Nachschreiben vorher 
eingegebener Texte“ 


VARIABLE: 
I, Il, I2 — Variable für 
FOR-NEXT Schleifen 
ZAE — Variable für die 
Anzahl der Fehler in 
„Nachschreiben vorher 
eingegebener Texte“ 
TI — Variable für die 
gebrauchten Zeiteinhei- 
ten in „Schreiben auf 
Zeit von freien Texten“ 
SE — Variable für den 
senkrechten Standpunkt 
des Cursors in „Schreiben 
auf Zeit von freien Tex- 
ten“ 
WA — Variable für den 
waagerechten Stand- 
punkt des Cursors in 
„Schreiben auf Zeit von 
freien Texten“ 
K, S — Variable für die 
CALL KEY-Abfrage 
DJ — Wert für den waage- 
rechten Standpunkt der 
Tasten auf der Bildschirm- 
tastatur 
DD -— Zufallswert für die 
Auswahl der Symbole in 
Nr. 2 des Hauptmenüs 
X1, Yl — Werte für die 
„Data-Auslesung“ 
M ( ) — Variable (Daten- 
feld) für den senkrechten 
Standpunkt der Tasten 
auf der Bildschirmtasta- 
tur 
X ( ) — Variable (Daten- 
feld) für den X-Wert der 
einzelnen Symbole auf 
der Bildschirmtastatur 
Y ( ) — Variable (Daten- 
feld) für den Y-Wert der 
einzelnen Symbole auf 
der Bildschirmtastatur 
Dirk Junghans 
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SPRITE- 





KONSTRUKTEUR 


Wie hat man früher Spri- 
tes auf dem TI-99/4A er- 
stellt? Man nahm Zettel 
und Bleistift und zeich- 
nete zunächst einen Ra- 
ster mit 16 mal 16 Fel- 
dern auf das Papier. Dann 
mußte man sich zunächst 
das Sprite gründlich über- 
legen, denn probieren 
war viel zuviel Arbeit. 
Schließlich kritzelte man 
das Sprite in den Raster 
und wenn es dann doch 
nicht den Anforderungen 
entsprach, blieb einem 
nichts anderes übrig als 
der Griff zum Radier- 
gummi. Der Fehler wurde 
also nun ausradiert, die 
Rasterlinien nachgezogen 
und die Prozedur von 
neuem wiederholt. 

Dann kam der pein- 
lichste Teil der Arbeit: 
Mühevoll mußte man in 
Zusammenarbeit mit dem 
Bedienungsbuch die Hex- 
codes raussuchen — dau- 
erndes Vergleichen mit 
der Zeichnung und dem 
Anleitungsbuch. Hatte 
man nun schließlich tat- 
sächlich die sechzehn 
richtigen Codes herausge- 
schrieben, so sah man 
sich zunächst einmal das 
neue Sprite am Bild- 
schirm an. Dazu mußte 
die Kolonne natürlich zu- 
erst eingegeben werden, 
ein eigenes Programm da- 
für geschrieben werden, 


usw. 

Jeder TI-99-Besitzer 
kennt diese Arbeiten nur 
zu gut. Oftmals verdirbt 
nur. der Gedanke an sie 
dem Programmierer die 
Lust, ein neues Pro- 
gramm zu machen. 

Wie kann man nun 
Sprites auf dem TI-99/4A 
erstellen? Ganz einfach: 
Mit dem Spriteconstruc- 


tion-Set. Legen Sie Ihre 
Zettel, Bleistifte, Radier- 
gummi und Bedienungs- 
anleitungen ruhig zur Sei- 
te. Mit dem Spritecon- 
struction-Set wird das Er- 
stellen von Sprites ein 
Kinderspiel. Sie malen 
die Form des Sprites ein- 
fach auf den Bildschirm, 
lassen es vom Computer 
in jeder beliebigen Dar- 
stellungsart bearbeiten, 
können sich das Ganze 
auch in „Natura“ an- 
schauen und bei Mißfal- 
len nach Belieben Ände- 
rungen vornehmen. Auch 
die lästige Arbeit der 
Hex-Code-Bestimmung 
übernimmt für Sie nun 
der Computer. Und als 
Krönung haben Sie die 
Möglichkeit, bis zu 18 
Sprites „aufzuheben“, 
um sie später nochmals 
anzusehen, oder mit an- 
deren Sprites zu verglei- 
chen. 


Spriteconstruc- 
tion-Set 


Ein extrem leistungsfähi- 
ges Hilfsprogramm. Mit 
dem Sprite-Construction 
Set können Sprites in Se- 
kundenschnelle erstellt 
werden. Was bisher bie 
der Entwicklung von 
eigenen Progammen die 
anstrengendste und ge- 
fürchtetste Arbeit war, 
wird nun zur unterhalt- 
samen Beschäftigung. Oh- 
ne Bleistift, Zettel und 
Radiergummi malen Sie 
Ihre Sprites einfach auf 
den Bildschirm, lassen sie 
vom Computer drehen 
oder wenden, sehen sich 
Ihre Meisterwerke in Na- 
tura an und lassen auch 
den Hexcode vom Com- 
puter berechnen. 


Die Möglichkeiten des 
Programms sind so um- 
fangreich, daß sie hier 
gar nicht alle angeführt 
werden können. Eine 
sechsseitige Programmdo- 
kumentation liegt diesem 
Schreiben bei. Jeder TI- 
User wird das Sprite-Con- 
structionset sicher sehr 
bald zu schätzen wissen! 

Nach dem Starten des 
Programms mit RUN bil- 
det der Computer zu- 
nächst das Zeichenfeld 
am Bildschirm ab und 
gleich danach das Haupt- 
menue. Neben der ersten 
Auswahlmöglichkeit des 
Hauptmenues befindet 
sich ein weißer Pfeil. 

Sie können diesen Pfeil 
bewegen, indem Sie den 
Joystick in die entspre- 
chende Richtung drük- 
ken. Der Pfeil wesit dann 
auf den nächsten Namen 
der Liste. 

Beachten Sie die ande- 
ren Namen der Liste zu- 
nächst nicht, und führen 
Sie den Pfeil neben das 
Wort „WORKING“. 

Wenn Sie nun den Ac- 
tionknopf Ihres Joysticks 
drücken, gelangen Sie in 
das Arbeitssystem, in 
dem Sie Ihre Sprites er- 
stellen können. Die ande- 
ren Teile des Hauptme- 
nues werden für Sie erst 
interessant, wenn Sie be- 
reits erstellte Sprites ver- 
walten (Speichern, aufru- 
fen) wollen. 

Im Arbeitsmodus wird 
zunächst das Arbeitsme- 
nue aufgelistet. Es be- 
steht aus folgenden Aus- 
wahlmöglichkeiten: 


SYMMETRY, INVERT, 
MIRROR, ROTATION 
HEX IN, HEX OUT, 
LOOK und READY 
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Beachten Sie vorläufig 
diese Auswahlmöglichkei- 
ten noch nicht und drük- 
ken Sie den Joystick 
nach rechts. 

Sie werden bemerkt 
haben, daß der weiße 
Pfeil neben dem Wort 
SYMMETRY des Menues 
verschwunden ist. Das be- 
bedeutet, daß Sie das 
Menue verlassen haben, 
und sich jetzt im Arbeits- 
modus befinden. 

Im Zeichenfeld befin- 
det sich nun ein Ziel- 
kreuz, das Sie in alle 
Richtungen bewegen 
können. Wenn Sie den 
Actioknopf drücken, 
können Sie nun Punkte 
Feld fahren, auf dem sich 
bereits ein Punkt befin- 
det und Sie abermals den 
Actionknopf drücken, 
wird er wieder gelöscht. 

Auf diese Art und 
Weise können Sie nun 
völlig problemlos Ihr 
Sprite „malen“. Wenn Sie 
längere Linien ziehen 
müssen, oder Flächen 
ausmalen wollen, dann 
müssen Sie bei gedrück- 
tem Feuerknopf in die 
entsprechende Richtung 
drücken und schon wird 
eine Linie gezogen. Jede 
Aktion Ihrerseits wird 
mit einem akustischen 
Signal untermalt. 

Sie können den 
beitsmodus wieder ver- 
lassen, indem Sie mit 
dem Zielkreuz über den 
Zeichenfeldrand hinaus- 
steuern. Sobald dies ge- 
schehen ist, verschwindet 
das Zielkreuz und Sie be- 


Ar- 


finden sich wieder im 
Auswahlmodus des 
Menues. 


Das Arbeitsmenue 


Das Arbeitsmenue ist im- 
stande, Sie bei der Erstel- 
lung Ihrer Sprites wesent- 
lich zu unterstützen. Sie 
können ein Programm 
des Arbeitsmenues auf- 





SERVICE 


rufen, indem Sie den 
Pfeil neben das gewünsch- 
te Wort steuern und dann 


den Actionknopf drücken. 


Ein weißer Punkt neben 
dem Wort zeigt Ihnen 
dann an, daß das Pro- 
gramm aktiviert wurde. 


Symmetry: 


Das Symmetry-Programm 
hilft Ihnen, wenn sie 
symmetrische Figuren er- 
stellen wollen. Sie müs- 
sen dann, je nach Art 
der Symmetrie, nur ein 
Viertel oder die Hälfte 
der Zeichenfläche ‚bema- 
len‘ und lassen dann den 
Computer für Sie weiter- 
malen. 

Wenn Sie im Arbeits- 
menue SYMMETRY ge- 
wählt haben, gelangen Sie 
zunächst in ein kleines 
Nebenmenue. 

Hier stehen H-AXIAL, 
V-AXIAL und CIRCU- 
LAR zur Auswahl. 

Neben den Wörtern ist 
ein Symbol abgebildet, 
welches veranschaulicht, 
welches Viertel bzw. wel- 
che Hälfte Sie bemalen 
müssen. 


Circular: 


Wenn Sie dieses Pro- 
gramm wählen, setzt der 
Computer Zirkularsym- 
metrie voraus. Das linke 
obere Veirtel wird dann 
zirkularsymmetrisch ver- 
vielfacht. 

Dieses Programm eig- 
net sich ideal zur Gestal- 
tung von Spielbällen oder 
ähnlichen symmetrischen 
Figuren. Sie müssen ledig- 
lich ein Viertel des Balles 
zeichnen, steigen dann in 
die Programme SYMME- 
TRY, CIRCULAR ein, 
und der Computer zeich- 
net das Gebilde fertig. 


H-Axial: 
Das Programm H-Axial 


setzt die horizontale Mit- 
telachse als Symmetrie- 


achse voraus. Zeichnen 
müssen Sie, bevor Sie die- 
ses Programm wählen, da- 
her die obere Hälfte des 
Sprites. Die untere Hälf- 
te zeichnet dann der 
Computer. 


V-Axial: 


Das Programm V-Axial 
setzt die vertikale Mittel- 
achse als Symmetrieachse 
voraus. Hier muß die lin- 
ke Hälfte des Sprites ge- 
zeichnet sein, damit der 
Computer die andere 
Hälfte erstellen kann. 


Invert: 


Das INVERT-Programm 
invertiert ein fertig ge- 


zeichnetes Sprite. Das 
heißt, alle schwarzen 
Punkte im Zeichenfeld 


werden weiß und weiße 
Punkte werden schwarz. 
Wie bei allen anderen 
Hilfsprogrammen des Ar- 
beitsmenues können Sie 
nach Verwendung des 
Programms wieder in den 


Arbeitsmodus einsteigen 
und Veränderungen vor- 
nehmen. 


Mirror: 


Das Mirror Programm 
spiegelt ein bereits ferti- 
ges Sprite. Auch hier ge- 
langen Sie in ein Neben- 
menue, welches Sie fragt, 
ob HORIZONTAL oder 
VERTIKAL _ gespiegelt 
werden soll. 


Horizontal: 


Spiegelt Horizontal. Ideal 
bei der Erstellung von 


Sie zeich- 


Spielfiguren! 
nen zum Beispiel nur die 


Figur, die nach links 
geht, spiegeln diese dann 
horizontal und schon ha- 
ben Sie die rechte Figur. 


Vertikal: 


Genauso wie HORIZON- 
TAL. Es wird allerdings 
vertikal gespiegelt. 
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Rotation: 

Wenn Sie das Rotation- 
Programm gewählt 
haben, taucht unterhalb 
des Zeichenfeldes ein 
neues Menue auf, welches 
sich erkundigt, ob Sie 
das Sprite nach links oder 
nach rechts rotieren 
lassen wollen. 

Wenn Sie nun links ge- 
wählt haben, führt das 
Sprite eine 90 Grad-Deh- 
nung nach links aus. 
Wählen Sie rechts, so ge- 
schieht derselbe Vorgang 
nach rechts. 

Durch öftere Anwen- 
dung dieses Programmes 





kann man ein Sprite in 
jeder beliebigen Richtung 
darstellen. Bei der Defi- 
nition von Spielfiguren 
ist dieses Programm un- 
entbehrlich. 

So wie die vorangegan- 
genen vier Programme ist 
auch das nun folgende 
fünfte Programm des Ar- 
beitsmenues beider Er- 
stellung von Sprites be- 
hilflich: 


Bitte lesen Sie weiter auf Seite 139 
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% 
11% + 
12 ! % SPRITE-CONSTRUCTION* 
131% + 
14 ı x Copyright by % 
151% * 
16 !' x Peter Wenzel * 
171% % 
181% * 
19 ! % Beroetigte Geraete % 
28 !ı % TIPP/4A Konsole %* 
21% Ext. Basic * 
221% * 
26 ! * Speicherbelegung % 
271% 91354 Bytes * 
ze ! * * 
ZI VKKKRKKKKKKKITITIIIIIIN NH 
38 ! 


48 ! Bei diesem Programm hab 
en wir auf die Hilfspunkte v 
erzichtet ! (Die Redal:tion) 
198 CALL CLEAR :: ON WARNING 
NEXT ::5 DIM H$(16) ,D&(1),SA 
VEtt18):: FOR I=1 TO 16 :: R 
EAD H$S(T):: NEXT I 
288 DATA tt, CC OD, t,10 
IKK, OD II I OR de 
VIDEO LIIEL DI II IE, 
)))) 
218 DATA FF,&61,01981010191818 
igı,FFeaigı 81161818 1,FFFFFFF 
FFFFFFFFF,@,FFFiIFIFIFIFIFIFF 
‚FFFFFFFFSASISIFF,FFFIFIFISI 
SiI8eiFF,d,& 
228 DATA AAFcCcccccccccCFt,286 
3E3A3A3A3G3E3, BIFCACHTFCCHICH 
FC,SGFCICSCTCICHEFC ,BSCECCElC 
FCACETCIE , SOFCCOSCHFCECHEFE , 04 
CICICAHFECCCEFC 
238 DATA BÄFCATICOHCHTEICHC , A 
FICCECEFECCECFC ,BRFCCCECCFCOCH 
Cat ,AAFCCCCccFCECCcctct ,89Ffttt 
CFECCCEF ,SAFCCHCHCOCHCHFC, 90 
FACCCCCCCCCCcF ,ASFCCACHFSCSCcH 
FC 
248 DATA SOFCCOCAFECEHCHl,, 3C4 
ZFHALAIFYA2SC, GA3ZFEA6C?7I46456 
EF, Aa7E313B3533337E , 99O3E&341 
aA&s93FIiE,AA7E3Z1119113F?E,9O 
F333KICHE317F,84?7F?723239383 
878 
259 DATA GR3E664B5BAF &53E , 9% 
FLEÄZF3IIL32ZIZ7ARS, HE?CIS1E1CI 
A183C2, 9@43F 13G6Q06062%3F ,097B 
723630363673, 097839393972637 
F 
268 DATA @G7F2B2A49494963,%0 
7C?76323A323477,B083E6 34559617 
F3E , 6947E33313F3E3978 , 9A3E639 
559%17F3E87 , BA?F313A34323179 
‚ BASEALSCAHEHZAFZF 


278 DATA BE7FAYZABSBEDEIC, 80 
6F 26268£&6E?E37, 0073622232321 
E0C,08?77222241494963,0079321 
46814264F,007341623418183C,9 
&?F3326£C1A317F,19O1LSIBEEIBIO 
i 


288 DATA DU0P181840991818,08 
BEOC7E?FFEHCHE 
298 FOR 1=37? T0 93 :: READ I 
$ :: CALL CHAR(1,1$):: NEXT 
I 
388 CALL COLOR(1,2,1,2,2,16, 
3,5,1,4,5,1,5,9,1,6,9,1,7,9, 
1,8,9,1,9,2,1,10,16,1,12,2,1 
&) 
318 CALL CLEAR :: CALL SCREE 
NtE):: DISPLAY ATtA,L1):"EL S 
PRITE CONSTRUCTIONSET LL" :: 
CALL SEI 
328. RESTORE 1248 :: CALL DIR 
:: DISPLAY AT(28,12):"@ BY 
PETER WENZL." 
338 ZI=5 :: Si=3 :: GOTO 358 
348 CALL S :: CALL C :: DISP 
LAY AT(2@,1%23:" TEIL READY L 
EL" :: Zie7 1: Si=$ 
358 GOSUB 1160 ;: IF X=4 THE 
N 358 
368 ON Z-4 GOTO 599, 100,459, 
186, 100,129, 1@9,379, 199,399, 
100,100, 100,109,409, 100,198, 
109, 186, 10€ 
378 GC=UF 939 
388 CALL KEY(J,K,E):: IF K=i 
8 THEN Zei12 :: S=& :: GOTO 3 
aa ELSE 386 
398 GOSUR 198% :; Z=14 :: 60 
TO 34% 
488 IF HLV=@ THEN CALL SOUND 
(2090,446,@):: DISPLAY AT(28 
‚13):"CAN NOT BE SAVED" :: D 
ISPLAY AT(27?,13): "USE HEXOUT 
BEVOR" ©: CALL SOUND(I,449, 
@yıy 2=19 ı: 8=3 :: GOTO 348 
418 IF SN?1? THEN CALL SOUND 
(300@,aaR,@):: DISPLAY AT(2% 
sI3):PSORRYA" 38 DISPLAY AT( 
22,13): "MEMORY FULL" 3: CALL 
SOUND (1,448,@):: Z=19 :: $= 
3 :: 60TG 340 
428 SN=SN+1 :: CALL C 3: CAL 
LS :: DISPLAY AT(Z@,13):"SP 
RITENAME“" 35 ACCEPT AT(22,1 
S)VALIDATE (UALPHA):IS 1: CAL 
L S2 :: SAVES{SN) =HEXSEHRSRI 
€ 
438 CALL S : 
12) : "NUMBER" 
448 CALL KEY 
3 THEN Z=19 
46 ELSE 440 


: DISPLAY AT(24, 
JENS "SAVED" 

(1,K,@:: IF K=i 
ı: 8=3 :: 6010 3 


458 IF 5N=8 THEN 2Z=7 :: $S=3 
ı: GOTO 348 :: ELSE DISPLAY 
AT(28,13):"SPRITENUMBER\" 
CALL S ACCEFPT AT(294,27): 
ss IF @<1 OR Q>SN THEN 458 
468 CALL S2 :: DISPLAY AT(22 
‚13):"SPRITENAME\" :: DISPLA 
Y AT(24,13):SEG$(SAVES(Q),12 
9,16):: HEXS=SEGS(SAVES(N),1 
‚64):: HR$S=SEGS$S(SAVES$(0),65, 
69) 
478 HCV=1 2: GOSUB 898 :: CA 
LL S2 :: CALL S2 :: CALL S2 
488 CALL KEY(1,K,0):: IF Q=2 
THEN 488 ELSE CALL z=? 
ı: 5=3 GOTO 348 
a98 CALL S :: CALL C :: DISP 
LAY AT(28,13):" [ELLE READY I 
[LL* zi=Z Ssi=S :: GOTO 
528 
589 RESTORE 125% 


CALL DIR 
518 CALL C :: CALL DELSPRITE 
tALL):: Z1,$1=3 
528 GOSUB 1168 :: 
N 1198 
538 IF Z=24 THEN 328 
548 ON 2-2 GOTO 559, 199,628, 
100,650, 100,720,1909,100,778, 
120,790,100,100,799, 160,918, 


IF x=4 THE 


199,798 

559 HCV=8 :: CALL SOUND (298, 

880,9,770,9,668,9):: DISPLAY 
AT(28,14):"" AXIAL\ H I ," 


ss DISPLAY AT(22,14):"" AXIA 
L\ v3 +" 55 DISPLAY AT(24,1i 
4):"" CIRCULAR I -" 

568 Z1=28 :: Si=1& :: GOSUB 
1188 :: IF %=4 THEN 569 


578 IF 2=28 THEN 688 ELSE IF 

2=22 THEN 618 
588 FOR I=3 TO 19 
UND (-4259,-1,9):: 
0 22 


CALL SO 
FOR Q=15 T 


598 CALL GCHAR(1,Q,C4):: CAL 
L HCHAR(1,45-9,C1):: CALL HC 
HAR (21-1,45-9,C1):: CALL HCH 
AR(21-1,0,C1)t: NEXT Q :: NE 
xT I :: 60TO 51 

608 FOR I=3 TO 18 :: CALL SO 
UND(-4258,-2,9):: FOR Q@=15 T 


0 38 CALL GCHAR(I,Q,C1):: 
CALL HCHAR (21-1,09,C1):: NEX 
ra NEXT I G60T0 51 
618 FOR 1I=3 TO 1 CALL SO 
UND (-4259,-3,8):: FOR Q=15 T 
0 22 CALL GCHAR(I1,0,C1)::5 
CALL HCHAR (1,45-9,C1):: NEX 
T@a:: NEXT I GOTO 318 
628 HCV=8 :: DISPLAY AT(29,1 
3):" EE INVERTING [L" :: FOR 
I=3 TO 18 CALL SOUND(-29 


2.0 
.e 


137 


28,-4,9):: FOR Q=15 TO 38 
CALL GCHAR(I1,Q,K) 

638 IF K=48 THEN CALL HCHAR ( 
I,Q,41)ELSE CALL HCHAR(I,Q,4 

3) 


648 NEXT ss NEXT I :: GOTO 
a9 
658 HCV=8 :: DEI9) ,DE(1)="t" 


:ı CALL SOUND (200,888,9,778, 
9,668,9):: DISPLAY AT(22,13) 
I" LEFT® 3: DISPLAY AT(24,1 


3):"" RIGHT" :; Z1=22 ;; Si= 
15 
668 GOSUB 1158 :: IF X=4 THE 


N 668 ELSE IF Z=22 THEN 798 

678 DISPLAY AT(28,13):"LIL R 

OTATION LLL" 

688 FOR A=8 TO 1 
TO 22 :: CALL SOUND(-4988, - 

7,9):: FOR Q=18 TO 3 STEP -1 

CALL GCHAR (Q, 1+AX8,C1):: 


ı: FOR 1=15 


DS(A)SDS(A)RKCHRS(CI)::S NEXT 
ss NEXT I 5: NEXT A 
698 GOSUB 1268 :: Z=? :: S=3 
:: G0OTO 498 


788 DISPLAY AT(298,13): "LIE R 
OTATION LLL" 


718 FOR A=8 TO 1 :: FOR 1=38 
TO 23 STEP -1 ::; CALL. SOUND 
(-4808,-6,9):: FOR Q=3 TO 18 


ı3 CALL GCHAR(G,I-AX8,C1):: 
DE (A)=DS(A)KCHRS (CA): NEXT 
st NEXT I NEXT A :: 60 
TO 698 
728 CALL CHAR (128, "O824646FFF 
F66248W183CF7E1B1S7EICIE"):: 
HCV=8 :: CALL SOUND (290,989, 
9,770,9,6608,9):: DISPLAY AT( 
22,13):"" HORIZONTAL I] x" 


738 DISPLAY AT(24,13):""' VER 
TICAL I y" 55 Zt=22 :: Si= 
15 :: GOSUB 1168 :: DISPLAY 


AT(2@,13): "CELL MIRROR LELL" 
:: IF Z=22 THEN 768 
748 FOR I=15 TO 38 
OUND(-4989,-3,9):: FOR Q=1 T 
08 CALL GCHAR (@+2,1,C1): 
: CALL GCHAR (19-4, 1,C2):: CA 
LL HCHAR (0+2,1,C2):: CALL HC 
HAR {19-Q,1,C1):: NEXT Q N 
EXT 1 
758 CALL S :: CALLC :: 
ı1 9=3 :: GOTO 498 
768 FOR 1=3 TO 18 :: CALL SO 
UND(-4888,-2,9):: FOR Q=1 TO 
CALL GCHAR (1,0+14,C1): 
ı CALL GCHAR(1,31-Q,C02):: CA 
LL HCHAR(1,9+14,C2):: CALL H 
CHAR (1,31-Q,C1):: NEXT @ :: 
NEXT I :: GOTO 759 
778 HCV=8 CALL SET 


CALL S 


2=9 


.: 2 GOT 





0 498 

788 HCV=8 FOR I=3 TO 18 : 
: CALL SQUND(-19,-6,@):: CAL 
L HCHAR(1,15,41,16):: NEXT I 
GOTO 498° 

798 CALL CHAR!12@,"FFFAFIFIS 
ISISIFFFFSASIBIFIFIFIFFFFBFE 
FBFBIBISIFFFFBISIBIBFBFERFF” 


[u] 
va 


ss CALIL S 2:5 DISPLAY AT(2@, 
13): "INSERT HEXCODE\" ;: HR& 
‚HEX$= un 
888 HCv=i :: FOR I=1 TO 4 .:: 


DISPLAY AT(22, 12): "PARTNUMB 
ER"5I5"3 "SCHR$(119+1) 
818 S=15 
828 CALL HCHAR(24,8,195) 
838 CALL KEY(3,K,@):: IF Q=® 
THEN 828 ELSE IF K<48 OR K) 
57 THEN IF K<£65 OR K>7@ THEN 
CALL SOUND(10@,-1,8):: 6010 
832 
848 CALL SOUND(12,999,8, 
)ıt IF K)57 THEN K=K-? 
858 CALL HEHAR(24,8,K):: HEX 
SEHEXSECHRSIK) I S=S+Hl :: IF 
K>5? THEN HRS=HRSECHRS (K+7) 
ELSE HR$=HRESCHRS (K) 
868 IF S<31 THEN 828 ELSE CA 
LL SOUND(S4,-5,@):3: CALL SOU 


-?,8 


ND(59,-6,2@):: CALL SOUND (SO, 
-3,8):° CALL HCHAR (24,15,232, 
17) 

878 NEXT I 

888 GOSUB 898 :: Z=17 :: S=3 

2 G6CTO 498 

898 K=1 :: FOR I=12 TO 21 ST 
EP 8 :: FOR %=3 TO 18 :: DIS 


PLAY AT(Q,I)EIZEIA)IHSLASC(S 
EGS (HEXS,K,1))-47):: DISPLAY 
AT(8,I+4)SIZE(4):H$(ASC (SEG 

$(HEX$,K+1,1))-47) 


988 K=K+2 :: NEXT @ :: NEXT 

I: RETURN 

91B GOSUB 934 

928 CALL KEY(1,K,$5):: IF Kal 
8 THEN Z=19 :: $S=3 :: 60T0 4 


98 ELSE 928 
938 CALL HCHAR (29,15,32,16): 
: Zi=21 :: Si=14 HEX$ , HR$ 
zen Hcv=1 
948 FOR SF=8 TO 8 STEF 8 :: 
FOR ZF=6 TO 8 STEP 8 FOR 
A=s& TO ? :: FOR Q=8 TO 4 STE 
P4 :: C2=@ FOR 1=8 TO 3 
22 CALL GCHAR (2+ZF+A, 18+SF-1 
+0,01) 
958 C2=C2+2"IX(C1-49) 
1 :: Si=Si+1 
HR$ (48407) 
968 IF C2>9 THEN HR&=HRS&CHR 
$(C2+S5)ELSE HR$=HREACHRE (C2 


.. 
.s 


s: NEXT 
HEX$=HEXSRC 
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+48) 

978 IF Si>3@4 THEN 51=15 :: 2 
i=Z1 +1 

988 CALL SOUND (19,-5,98)::5 CA 

LL HCHAR (21,81,43+C2):: NEXT 
@ ©: NEXT A :: NEXT ZF ©: MN 

EXT SF :; CALL S2 :: CALL SZ 
2: CALL S2 :: RETURN 

998 GOSUB iO :: Z=21 :: 60 

TO 498 


1088 IF HCV=8 THEN CALL SOUN 
D(30080,449,8):: CALL C :: DI 
SPLAY AT(298, 13): "WARNING\" ı 
: DISPLAY AT(22,13): "USE HEX 
OUT BEVOR" GOTO 1898 
1019 CALl. CHAR(128,HR$):: CA 
LL C 3: CALL SOUND (299,888, 9 
‚778,9,564,9):: DISPLAY AT(2 
9,13):"' COLOR" DISPLAY A 
T(22,18):"' MAGNIFY" DISp 
LAY AT(24,13):"' END" 
1028 9=3 CALL MAGNIFY (3): 
: CALL SPRITE (#25,128,2,168, 
298) 
10838 Zi=2@ :: Si=15 :: GOSUB 
1168 :: IF X=4 THEN 1934 
1048 IF Z=24 THEN 1890 
1858 IF Z=22 THEN 1978 ELSE 
ACCEPT AT(29,21)SIZEIZIVALID 
ATE(DIGIT)IBEEF:I$ IF Ig=" 
" THEN 1956 ELSE CO=VAL (Is) 
1868 IF CO<i OR CO'1e THEN A 
954 ELSE CALL COLOR (#25,C0): 
: GOTO 19238 
10878 IF @=3 THEN CALL MAGNIF 


..0 
.« 


.. 
.. 


Y{a)ız @=4 ELSE CALL MAGNIFY 
(2): 8=3 

1888 CAIL HCHAR(22,15,96):: 

GCETO 19238 

1898 CALL DELSFRITEtALL):: C 

ALL EQUND(1,4942,9):: 3=3 ı: 

RETURN 

1189 CALL IC :: DISFLAY AT(21 
sIS)E"HTAEN VTARP\" 35 HCV=9 
2 CALL MAGNIFY{2):: Z,8=1 


CALL SFRITE(#9,91,19,7+2% 
8,102+5%8):: DISPLAY AT(23,1 
a 1" 

1118 CALL KEY(1,K.I):: IF K< 
>18 THEN 1138 ELSE CALL GCHA 
R(2+2,5+14,71) 

1128 IF 1=44 THEN CALL SOUND 
(1680,220,8,247,9,262,8):: CA 
LL HCHAR (Z+2,5+14,41)ELSE CA 
LL SOUND (99,4408,0,494,0,524, 
£) CALI. HCHAR (2+2,5+14,99) 
1138 CAli ICHSTt1,X,Y):: IF 
x=@ AND Y=&# THEN 1119 
1198 Z=2-vY/4 :: 5=5+X274 
F Z>i6& OR Zi THEN E19 ELSE 
IF S>i6& CR Si THEN Si 


..e 
.0 


I 





1158 CALL SOUND (38, -2,98):: C 
ALL LOCATE (#9, 7+2%8,1982+5%8) 
ı: DISPLAY AT(23,15):USING " 
TY) AHN"IS,Z :: GOTO 1118 
1168 Z=Z1 :: S=S1 :: CALL S 
:3 CALL HCHAR(Z,S,194) 
1178 CALL KEY(1,K,1):: IF K= 
18 THEN CALL HCHAR(Z,$,195): 
ı ı: CALL S2 :: GOTO 1238 
1188 CALL JOYST(1,%,Y):: IF 
xX=4 THEN 1228 
1198 IF Y=8 THEN 1178 ELSE C 
ALL HCHAR (2,5,96) 
1288 Z=Z-Y/4 :: IF Z>24 OR Z 
<3 THEN 1168 
1218 CALL GCHAR(Z,S,FELDI:: 
IF FELD<)9& THEN 1298 ELSE C 
ALL SOUND(10@,-1,9):: CALL H 
CHAR (2Z,8,184):: GOTO 1178 
1228 CALL S :: CALL HCHAR(Z, 
5,96) 
1238 RETURN 
1248 DATA CREATE\,,' WORKING 
ss" OLD ONE, ,,OUTPUT\,,' HEX 
CODE,,' LOOK,,,STORAGE\,,' 8 
AVE, sy ss 55 
1258 DATA ' SYMMETRY,,' INVE 
RT,,' ROTATION,," MIRROR, ,,' 
CLEAR, ,' SET ALL,,,' HEX IN 
u HEX OUT,,' LOOK,,,' READ 
’ 
1268 FOR A=8 TO 1 :: FOR I=8 
TO ? :: DISPLAY AT(I+3+AX8, 
13) :SEGS(DS (A), I416+1,16):; 
NEXT I :: NEXT A :: RETURN 
1278 SUB SET :: CALL SOUND(- 
999,-5,9):: CALL VCHAR (3,14, 
39,16):: CALL HCHAR(19,14,38 
Js: CALL HCHAR(19,15,37,16) 
1288 FOR I=3 TO 18 :: CALL $ 
OUND(-18,-5,@):: CALL HCHAR ( 
1,15,48,16):: NEXT I :: CALL 
CHAR (96, "OQSS2ASS2ASS2ASS", 
194, "AOOSAC7E7FFERCHE" , 195," 
GOOWICZEZEZEIC"):: SUBEND 
1298 SUB C :: FOR I=2@ TO 24 
22 DISPLAY AT(1L,19:"" ıı N 
EXT I :: SUBEND 
1388 SUB S2 :: FOR I=8 TO 5 
:: CALL SOUND(-299,119%2*1,4 
Js: NEXT I :: SUBEND 
1318 SUB DIR :: FOR I=3 TO 2 
4 :: DISPLAY AT(1,1)SIZE(11) 
see 2: NEXT I :: FOR I=3 TO 
READ I$ :: IF I$="" TH 
EN CALL SOUND(28,-3,9)ELSE C 
ALL SOUND (29, -2,9) 
1328 DISPLAY AT(I,A)SIZE(LM) 
:Is :: NEXT I :: SUBEND 
1338 SUB S :: CALL SOUND (-58 
‚330,4,220,4):: CALL SOUND(- 


59,338,4,4498,4):: 
1349 ! 
1359 
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Hexin: 


Hier haben Sie die Mög- 
lichkeit, den bereits exi- 
stierenden Hexcode eines 
Sprites einzugeben. Ist 
dies geschehen, so kön- 
nen Sie an diesem Sprite 
nach Belieben Änderun- 
gen vornehmen, oder sich 
selbiges in „Natura“ an- 
schauen. (Dieses Pro- 
gramm mit dem Namen 
„LOOK“ wird später er- 
läutert!). 

Dieses Programm ist 
sehr nützlich, wenn Sie 
sich die Grafiken anderer 
Listings einmal genauer 
ansehen wollen, bevor Sie 
das Listing eingeben, 
oder wenn Sie die Grafi- 
ken anderer Programme 
für eines Ihrer eigenen 
Produkte verwenden wol- 
len. 


Hex out: 


Dieses Programm nimmt 
Ihnen die mühsamste Ar- 
beit bei der Spritedefinie- 
rung ab. Es erzeugt den 
Hexcode des Sprites. Die- 
ser. wird unmittelbar un- 
terhalb des Zeichenfeldes 
in vier Zeilen ausgegeben, 
wobei jede Zeile 16 Zei- 
chen enthält und damit 
dem Hexcode eines Zei- 
chens entspricht. (Ein 
Sprite besteht ja aus vier 
Zeichen!) 
1; Zeile 2..2..#.45% linkes 
oberes Viertel des Sprites 
2. Zeile ........ linkes, 
unteres Viertel des Sprites 
3. Zeile....... rechtes, 
oberes Viertel des Sprites 
4. Zeile....... rechtes, 
unteres Viertel des Sprites 

Wenn Sie den Hexcode 
in einem Programm ver- 
werten wollen, dann ge- 
ben sie ihn einfach der 
Reihe nach von Zeile 1— 
4 ein. 

Bevor Sie die Program- 
me wie „SAVE“ oder 
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SUBEND 


%%% PROGRAMMENDE *%% 


„LOOK“ verwenden, 
müssen Sie das HEX OUT- 
Programm verwenden, da 
der Computer den Hex- 
Code auch für diese Pro- 
gramme zum Rechnen 
verwendet. 


Look 


Mit der Hilfe dieses Pro- 
grammes können Sie sich 
Ihre fertigen Sprites in 
Originalgröße anschauen. 
Sobald Sie dieses Pro- 
gramm aufgerufen haben, 
erscheint das Sprite am 
rechten, unteren Bild- 
schirmrand, und daneben 
eine neues Menue. Hier 
können Sie die Farbe des 
Sprites mittels COLOR 
ändern, oder es mittels 
MAGNIFY vergrößern. 
Eine neuerliche Anwen- 
dung von Magnify bringt 
das Sprite wieder in die 
Ursprungsgröße zurück. 

Bevor Sie dieses Pro- 
gramm verwenden kön- 
nen, müssen Sie das Hex- 
Out Programm durch- 
laufen haben. Haben Sie 
dies vergessen, so weist 
der Computer darauf hin. 

Wenn Sie genug gese- 
hen haben, steigen Sie 
mittels END aus und keh- 
ren so wieder in das Ar- 
beitsmenue zurück. 

Zum Schluß die drei 
einfachsten Teile des Ar- 
beitsmenues: 


Clear 


löscht das Zeichenfeld. 
Das dargestellte Sprite 
verschwindet. 

Vorsicht: Sprites, die 
vorher gesaved wurden, 
sind nach der Anwen- 
dung von CLEAR nicht 
wieder aufrufbar. Sie soll- 
ten daher fertige Sprites, 
die Sie noch benötigen, 


Bitte lesen Sie weiter auf Seite 146 





WAS MAN 
SCHWARZ 








Dies ist ein Programm, 
das dem creativen An- 
wender viele Variations- 
möglichkeiten bietet, 
Säulen 3-dimensional mit 
dem Drucker RX-80 dar- 
zustellen. 

Es ist für alle, die ih- 
re Säulen schwarz auf 
weiß in der Hand halten 
wollen und auf größt- 
mögliche Freiheit und 
Komfort bei der Gestal- 
tung und Ausführung sol- 
cher Anwenderprogram- 
me Wert legen, gedacht. 

Dieses Programm ist in 
folgende Abschnitte un- 
terteilt: 

1. Eingabe: Hier wer- 
den alle wichtigen Vor- 
ausetzungen für den wei- 
teren Ablauf von Ihnen 
eingegeben, wodurch 
die Variationen der ver- 
schiedenen Drucke erst 
zustande kommt. Sie kön- 
nen hier, im Dialog mit 
dem Computer, neben 
der Anzahl der Säulen 
auch entscheiden, ob die 
Y-Achse, ein Zwischen- 
raum, oder im 2-Farben- 





BESITZT 


Druck gedruckt werden 
soll. 

Zum 2-Farben-Druck 
ist anzumerken, daß hier 
in abwechselnder Folge 
2 Säulen in verschiedenen 
Farben gedruckt werden, 
z.B. um einen Vergleich 
darzustellen. Eine weitere 
Möglichkeit, die Grafik 
ganz erheblich zu verän- 
dern, stellt die Eingabe 
der Säulenbreite dar. 

Mit der Eingabe des 
Faktors lassen Sie die Hö- 
he der Säulen hochrech- 
nen. Geben Sie z.B. den 
Faktor .5 ein, dann rech- 
net der Computer alle 
Werte auf 100 hoch. 

2. Werteeingabe: Hier 
geben Sie die Werte für 
die Säulenhöhen ein. An- 
gezeigt wird hier neben 
dem letzten von Ihnen 
eingegetippten Wert und 
der Anzahl der bisher ein- 
getippten Säulen auch 
der höchste Wert, der 
nicht überschritten wer- 
den darf. 


Michael Büth 
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Schematischer 
Aufbau einer Säule 
mit Verweis auf die Zeilennummern 
wo die betreffenden Stücke entstehen 
und gedruckt werden einschließlich 
Kommentar 


INT (A(1)) 

Z. — 1440-1460 

2 Farben möglich: 
Druckrichtung schwarz Farb= 140 

grau Farb= 139 


2.— 1520-1540 


BREI 1/2 N 


stellen Wert 2.—- 1560-1580 
für die Breite 


abhängig von BREI 
d. Säule dar | 


Z.—- 1630-1650 INT(A() 2.— 1670-1690 


2.— 1660 
immer schwarz 


Downloaded from www.ti99iuc.it 
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1898 CALL SCREEN(2):: CALL C 9,248, 252, 254,255, 255,255,25 
LEAR :: END 5 

1908 DATA 255,127,63,31,15,7 1948 DATA 255,8,0,2,0,8,8,8, 
‚3,255 285 

an DATA 128,69,32,16,8,4,2 059 DATA 31,24,28,18,17,16 


1968 DATA 255,2,90,0,9,64,32, 
16,15 


’ 
1929 DATA 9,90,0,0,02,8,8,255 
1938 DATA 255,128,192,224,24 





DER KLEINE MUNTERMACHER 


Haben Sie das auch schon einmal erlebt: 
Sie haben eine ganz tolle Idee für ein Programm und bemerken beim 
Programmieren, daß Ihr Vorhaben ein Flop werden muß, 
da die notwendigen Routinen den Rechner viel zu langsam machen? 
Und dann ärgern Sie sich darüber, weil die Assemblerausrüstung 
für Ihren TI viel zu teuer ist? Das ist nun vorbei. 
Wir haben für Sie eine Hardwareschaltung zur Assemblerprogrammierung 
getestet, die zum einen sehr günstig zu kaufen ist 
und zum anderen nur das Extended Basic-Modul benötigt. 
Damit Sie uns richtig verstehen: den Cassettenrecorder brauchen Sie 
auch noch, denn irgendwo müssen Ihre Programme ja gespeichert 
werden. Sie haben richtig gelesen: Es wird kein Diskettenlaufwerk 
benötigt. Und jetzt in medias res. 


Eine kleine Hardwareerweiterung 
macht den langsamen TI 99/4A 
zum Rennwagen. 


DER KASTEN 


Die kleine Hardwareschaltung findet 
in einem Kunststoffkasten von 
100 mm x 50 mm x 25 mm Platz 
und besteht, wenn Sie das Gehäuse 
geöffnet haben, aus sehr wenigen 
Bausteinen. Auf der Platine finden 
sich zwei Widerstände, ein Chi 
vom Typ HM6116P-3, ein Speicher- 
baustein, und ein SN74LS138N. 
Ein kleiner Kippschalter wurde an 
der Gehäusestirnseite untergebracht. 
Der elektronische Aufbau birgt also 
weder Wunder noch technische 
Novation. Aber sinnreiche Details. 
Dieser kleine Kasten zeigt an beiden 
Längsseiten einen Peripheriebus. Mit 
dem einen Stecker können Sie damit 
Ihre Neuerwerbung an den System- 
bus Ihres TI anschließen und die 
andere Busseite für weitere Periphe- 
rie nutzen. Falls vorhanden. Die 
Stecker passen übrigens sauber an 
den TI-Bus, da klemmt oder wak- 
kelt nichts. Ebenfalls von sehr gu- 
ter Qualität ist das Kunststoffge- 
häuse. Es besteht aus zwei Hälften, 
die sehr stabil aussehen und mit vier 
starken Schrauben zusammenge- 
halten werden. Einen Sturz von der 
Tischplatte dürfte das Gehäuse 
wohl aushalten. Aber versuchen Sie 
bitte nicht, mit Ihren Füßen die 
Stabilitätsgrenze des Gehäuses zu 
ergründen. Die beiden Gehäusehälf- 
ten werden nicht einfach stumpf 
aufeinander gesetzt, sondern zei- 
gen Nut und Feder. Das zeugt von 
durchdachter Konstruktion. Derart 
verbundene Bauteile können nicht 
wackeln oder zueinander verrut- 
schen. Nur die Farbgebung der Ge- 
häuseteile läßt zu wünschen übrig. 


Grau in Grau ist die Devise. Ober- 
teil in Hellgrau Unterteil in Dunkel- 
grau. Aber Ihr TI soll ja auch kein 
buntes Kunstwerk sein. 


AUSSTATTUNG 


Das kleine Kästchen kommt natür- 
lich nicht alleine. In seiner Beglei- 
tung finden sich eine Kassette und 
ein kleines Handbuch. Klein ist et- 
was untertrieben, denn im Format 
DIN A4 läßt es sich schwer verlieren 
und mit 25 Seiten hat es schon 
recht viel zu lesen. 

Im Handbuch wird nicht nur be- 
schrieben, wie Sie Ihr kleines Zau- 
berkästchen anschließen müssen. 
Sie werden in einem Kurzlehrgang 
in die Assemblerkürzel eingewiesen. 
Und zwar in alle, die auf dem TMS 
9900 lauffähig sind. Und das Ganze 
geschieht in deutscher Sprache. 
Obendrein findet sich ein kleines 
Beispielprogramm, das Ihnen den 
ersten Start leicht machen soll. 

Sie kommen aber in keinem Fall 
darum herum, sich selbst mit ande- 
rer Literatur zur Assemblerpro- 
grammierung zu beschäftigen. Und 
da gibt es mittlerweile einiges auf 
dem Büchermarkt. Einen entspre- 
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chenden .Vermerk mit Literatur- 
hinweis finden Sie ebenfalls im 
Handbuch. Ein, wie wir meinen, 
lobenswerter Zug. 

Die mitgelieferte Kassette hat 
dann endlich alles, was Sie sich 
schon lange gewünscht haben: 
— Line by Line-Assembler 

— Dissassembler 

— Kassettenladeroutine 

— Kassettenspeicherroutine 


ANWENDUNG 


Um Ihre Erweiterung in Betrieb 
nehmen zu können, genügt es, sie 
an den TI-Bus zu stecken. Dazu 
muß die Konsole ausgeschaltet sein. 
Der schon erwähnte Kippschalter 
soll in der linken Position stehen. 
Danach schalten Sie Ihr Gerät ein, 
rufen Ex-Basic auf und bringen den 
Kippschalter in die andere Position. 
Jetzt können Sie den Befehl CALL 
INIT eingeben. Nach Eingabe von 
NEW ist Ihr Rechner betriebsbereit. 
Wenn Sie jetzt den Line by Line- 
Assembler von Kassette laden und 
starten, können Sie sofort mit der 
Programmierung Ihrer Ideen begin- 
nen. Auf Wunsch erfolgt ein Pro- 
tok ollausdruck über einen ange- 
schlossenen Drucker. Der Assembler 


zz meer re N EEE 


TIPS & TRICKS 


ähnelt sehr stark dem vom Mini 
Mem, kann aber von der Geschwin- 
digkeit nicht mithalten und hat lei- 
der auch einige Einschränkungen, 
die nicht verschwiegen werden: 
— nur eine Zahl pro Data- 
Anweisung zulässig 
— außer Indizierung keine Berech- 
nung im Operandenfeld 
— Programme sind auf eine be- 
stimmte Adresse festgelegt 
— keine vorgegebenen Definitionen 
— das S-Symbol als Synonym für 
den Wert des Programmzählers 
ist nicht zulässig. 
Mit diesen Einschränkungen läßt es 
sich aber ganz gut leben, zumal Sie 
mit diesem Assembler ein wirkungs- 
volles Instrument in der Hand ha- 
ben, das es auch erlaubt, direkte 
Manipulationen im VDP vorzuneh- 
men. Die gesamte. Handhabung des 
Assemblers ist problemlos zu nen- 
nen und bereitet viel Spaß, wenn 
Sie sich erst einmal eingearbeitet 
haben. 
Eine weitere wertvolle Hilfe stellt 
der Disassembler dar, mit dem Sie 


z.B.: fremde Maschinenprogramme 
untersuchen können. 

Damit Ihre Programme nicht ver- 
loren gehen, können Sie alles auf 
Kassette abspeichern. Sie brauchen 
keine schwer verständlichen Befeh- 
le einzugeben, denn die Speicher- 
routine sucht sich die Namenstabel- 
le, Programmstartadresse und Länge 
des Programms selber. 

Genauso unkompliziert funktioniert 
das Wiedereinlesen Ihres Programms. 
Da kann wirklich nichts schief 


gehen. Dafür sorgt die Einleseroutine. 





ERKLÄRUNGEN 





Die auf Kassette mitgelieferten 
Programme befinden sich schon 
recht lange auf dem Markt. Daraus 
macht auch das Handbuch kein 
Geheimnis. Es handelt sich hierbei 
um Ex-Basic-Programme, die erst- 
malig 1983 veröffentlicht wurden 
und bis Dato nur mit der 332 KRAM 
liefen. Diese Erweiterung ist zwar 
überall käuflich zu erwerben, kostet 


aber zwischen 450 und 650 DM. 
Die hier vorgestellte Erweiterung 
beläuft sich auf nur 149 DM. 
Selbst das Mini Mem, bisher der 
günstigste Einstieg in die Welt der 
Maschinensprache, kann da nicht 
mithalten. Falls Sie überhaupt 
noch irgendwo ein solches Modul 
erwerben können. 

Diese kleine Hardwareschaltung 
läßt uns aufatmen. Der TI ist noch 
lange nicht tot. Jedenfalls solange 
nicht, wie solch gute Hardware 
auf den Markt dringt und auch in 
großen Stückzahlen verfügbar ist. 
Die Produktion läuft auf vollen 
Touren und wer sich solch ein 
Gerät zulegen will, der sei an die 
Firma RADIX Bürotechnik in 
Hamburg verwiesen. Sie werden 
mit Sicherheit nicht enttäuscht 
sein. Denn diese Hardware stellt 
eine echte Alternative zur Speicher- 
erweiterung oder dem fast nicht 
mehr zu bekommenden Mini Mem 
dar, hat fast den gleichen Befehls- 
satz, ist billiger und sehr einfach 
zu bedienen. Klaus Weidemann 


Hilfe! Die Austrittsgebühr beim Rex Soft Club 
beträgt 85 DM. Deswegen muß ich folgende 
Sachen verkaufen: Joysticks (35 DM), Joystick- 
adapter (15 DM) + Othello-Modul (15 DM) + 
Statistik-Modul (20 DM). Tel. 07142/64321 
Centronics-Interface (Extern) für TI 99/4A — 
149,— DM. Tel. 07821/7570 

6 aus 49 + 7 aus 38. 2 Systemprogr. (X-Basic) 
mit 28 Systemen. Kass. 30 DM + Nachnahme 
von P. Hielscher, Am Wall 22, 4401 Saerbeck 





— 300 ggf. a. preisw. neu sowie Speechsynt. — 
70,—. Tel. 07240/5300 

Verkaufe TI Basic/Extended Basic Handbuch ge- 
gen Höchstgebot 4 Wo. n. Erscheinung. Vers. 

p- NN. Franz Tersluisen, Tel. 02851/7438 n. 17 
Uhr 

Salpha-Software und Module Donkey-Kont 60, 
Dig-Dug 45, Defender 35, Burgertime 50, Q-Bert 
60, Re.to Pirate 1.50, Parsec 20, Tombstone Ci. 
20, Alpiner 30, Chisholm Tr. 20, Munch-Man 30, 
Ti-Invaders 20. Tel. 0208 23 299 tgl ab 18 Uhr 
Kompl!. TI-Station: Box, alle Karten, 2 Floppys, 
Drucker, Kass. Rec., Konsole mit integ. Grafic 
X-Basic, E/A-Modul, Adventure, Super Duper, 
Dsk. Manager, Speech-Synthesizer, 37er Color- 
TV, + Zub. 2999,— DM VB - Infos Tel.: 030/ 
686 54 03 





TI 99/4A in Orig.-verpackg. + X-Basic + 2 Joy- 
sticks + Rec-kabel + Literatur + PGMs (Lohn- und 
Einkommensteuer) 550,—. 040/2 70 30 78 Gert 
Adler (10.00 bis 15.00 Uhr) 
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Verkaufe TI99/4A + Exbasicmod. (original) + 
Schachmod. + Literatur. VB 500 DM (auch Ein- 
zelverkauf) Tel. 08039/26 30 

Konsole; Joysticks; Synthesizer; X-Basic; EA; 
MM; X-Box; Diskettenlaufw.; Akustikkop.; 
RS232; Module; haufenweise Spiele; Informations- 
material; Adressen; Bücher; Schaltpläne; Listings; 
Wert weit über 5500 VB 4200; kaum benutzt 

760 24 06 (München) 


TI 99/4A, P-Box, RS232, Disk + Contr., 32k, 
P-Code + USCD-Pasc., RGB-Mod., Joyst, E/A + dt. 
Handb., PIO-Kabel + Datenverw.-Modul, 4 Spiel- 
mod., Recorderkabel, alles einwandfrei und ori- 
ginal TI. + Recorder + 15 Disks +... 

Kompl. 3200,— DM VB. 040/601 48 83 





Hallo TI-Freaks. Verkaufe TI 99 Netzteil (50,— 
DM). Recorderkabel (10,— DM) orig. TL99/4A 
Schaltnetzteil zum Austausch (50,— DM), TI- 
Tastatur (50,— DM), Jockstik (20,— DM) Kas- 
settenrecorder (40,— DM), TI-Modulator (80,—) 
TI-99/4A Netzteil (30,— DM) 

Suche TI-Module. F. Haage, Rudolfstr. 9, 746 
BL-Frommern 07433/35189 

++ GOLF ++ (TI-99/4A + ExBasic) Meistern Sie 
die 18 Bilder!! Viel Geschicklichkeit und Augen- 
maß sind gefordert! TOP GARBGRAPHIK! Bis 
10 Spieler! DISK nur 10,— DM Vorauskasse! 
B&A AHRENS, Am Hinkelstein 21, 6140 Berns- 
heim 1 

Verk. TI99/4A + Box + Floppy + 27 Disks + Ext. 
Bas + 6 Mod. Parsec-Minus-Schach-Blacky. Ad- 
venture-Disk Manager + Kassetten + Ori.Lit + 
Data Becker + Hefte + Zubehör. VB 1100. H.v. 
Smolinski, Schillerstr. 96, 2080 Pinneberg 
04101—27233 FarbMoni +450 DM 








SERVICE 





SPRITE- 
KONSTRUKTEUR 
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unbedingt vorher mittels 
SAVE (das ist ein Pro- 
gramm des Arbeitsme- 
nues) „aufheben“. 


Set all: 


SET ALL setzt alle Punk- 
te. Abgesehen davon, daß 
das Zeichenfeld nach der 
Anwendung von SET 
ALL nicht weiß, sondern 
schwarz ist, hat dieses 
Programm die gleiche Ei- 
genschaft wie CLEAR. Es 
ist sehr nützlich, wenn 
Sie Sprites mit großen 
Dunkelflächen definieren 
wollen. 


Ready: 


Bei der Anwendung von 
READY, dem letzten 
Punkt des Arbeitsme- 
nues, kehren Sie in das 
Hauptmenue zurück. Das 
von Ihnen gezeichnete 
Sprite wird dabei nicht 
gelöscht. Sie können also 


gegebenenfalls wieder ins 
Arbeitsmenue mittels 
WORKING zurückkehren 
und Veränderungen an 
der Zeichnung vorneh- 
men. 


Das Hauptmenue 


Wie bereits erwähnt, 
dient das Hauptmenue 
dazu, erstellte Sprites zu 
verwalten. Wenn Sie Ih- 
ren Joystick nach rechts 
drücken, gelangen Sie 
nicht in den Arbeitsmo- 
dus. Zeichnen können Sie 
nämlich nur, wenn Sie 
sich im Arbeitsmenue be- 
finden. 


Save 
Mit SAVE können Sie 
fertige Sprites abspei- 


chern und damit für spä- 
tere Verwendung aufhe- 
ben. 

Dabei fragt Sie der 
Computer nach dem Na- 


men des Sprites. Dieser 
darf maximal 16 Buch- 
staben betragen. Drücken 
Sie die ALPHA-LOCK 
Taste und geben Sie den 
Namen ein. Nach Drücken 
von ENTER sagt Ihnen 
der Computer, das wie- 
vielte Sprite Sie soeben 
gesaved haben. Nicht der 
Spritename, sondern die 
Spritenummer ist aus- 
schlaggebend für das „Zu- 
rückholen“ mittels CRE- 


ATE. 
Wurden bereits 18 
Sprites gesaved, so er- 


scheint bei versuchtem 
Einstieg in das Programm 
SAVE die Fehlermeldung 
WARNING: MEMORY 
FULL. Achtung: Diese 
Fehlermeldung kommt in 
diesem Fali nicht vom Be- 
triebssystem des TI-99/ 
4A, sondern wird soft- 
waremäßig simuliert. Tat- 
sächlich haben Sie auch 
bei 18 gespeicherten Spri- 
tes noch etwa 500 Bytes 
freien Speicherraum zur 
Verfügung. 


Create: 


(Nur in der Version 2.6— 
85, sonst OLD ONE) 


Mit CREATE können Sie 
alte Sprites, die Sie auf- 
gehoben haben, wieder 
aufrufen. Der Computer 
fragt Sie nach der Spri- 
tenummer des Sprites. 
Geben Sie eine Nummer 
ein, die nicht existiert, so 
ignoriert der Computer 
die Eingabe. Bei der Ein- 
gabe einer gültigen Sprite- 
nummer stellt der Com- 
puter das aufgerufene 
Sprite im Zeichenfeld dar 
und schreibt den Sprite- 
namen darunter. (Dieser 
dient in erster Linie zur 
Orientierung für Sie). 
Wurde noch kein Spri- 
te gesaved, ist der Ein- 
stieg in das CREATE- 
Programm nicht möglich! 
Außerdem gibt es im 
Hauptmenue noch die 
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Programme HEX OUT 
und LOOK. Sie sind im 
Hauptmenue nochmals 
angeführt, damit Sie bei 
Bedarf nicht dauern zwi- 
schen Haupt- und Ar- 
beitsmenue wechseln 
müssen. 

Die Funktion der bei- 
den Programme ist im 
Hauptmenue genauso wie 
im Neben- oder Arbeits- 
menue. 


Erläuterungen, Programm 
technische Daten: 


Das Unterbringen eines 
so umfangreichen Pro- 
grammes in einen 16k- 
Speicher wurde erst 
durch die Verwendung 
zahlreicher Unterpro- 
gramme möglich. Dem- 
entsprechend oft tauchen 
daher im Programm die 
Wörtchen GOSUB oder 
CALL auf. 

Ein weiterer Vorteil 
des Programmes besteht 
darin, daß auf kompli- 
zierte Mathematik ver- 
zichtet wurde. Bei jeder 
Funktion tastet der Com- 
puter den Bildschirm ab 
und holt seine Informa- 
tionen unmittelbar vom 
Schirm, was sehr viel 
Speicherplatz spart. 

Achtung: Da das Pro- 
gramm, wie bereits er- 
wähnt, von der Mathema- 
tik weitgehend Abstand 
nimmt, bilden die Be- 
fehle CALL GCHAR und 
natürlich auch CALL 
HCHAR die Grundlage 
für die Funktion. 

Bei der Eingabe des 
Programmes mittels Li- 
sting in den Computer 
sei daher darauf zu ach- 
ten, stets die richtigen 
Variablen oder Zahlen in 
diesen beiden, Befehlen 
einzusetzen. Abtippfehler 
können zu schweren Lo- 
gikfehlern führen, welche 
auch sehr schwer zu eruie- 
ren sein dürften. 
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32 K-Karte (Corcomp) 
RS 232-Karte (Orig. TI) 
P-Code-Karte (Orig. TI) 
Compact Peripherie System 99 
(Disccontroller DSD, 32 K-RAM, 
2xV-23, ] Centronics- 
schn.) 

dto. + 1 Laufw. DSDD 
Ext. 32 K-Erweiterung 
dto. = 1 Centronics- 
schnittst. 

Externes Druckerinterface + 
Kabel + Epson RX 80 
dto. + RX 80 FT+ 
dto. + FX 80+ 

dto. + Star SG-10 

2. Laufwerk extern Slimline 
DSDD mit Gehäuse + Netz- 


teil 


Sprachsynthesizer 
Grafiktablett (Super- 
sketch) 
Modulexpander 3fach 


Akustikkoppler Dataphon S 
21 d + externe V-24-Schnitstelle 
+ Verbindungskabel 
Fernbedienung (Orig. TI) 















ANOMIC 





Extended Basic 


Extended Basic II Plus 
= Extended Basic + Grafic Extended Basic (Apesoft) in 1 Modul 


Umbauaktion 


wir machen aus Ihrem Extended Basic (Mechatronic ein Extended Basic I Plus 


Umtauschaktion 

Bei Bestellung eines Extended Basic Il Plus vergüten wir Ihnen bei kosten- 
freier Zusendung eines „‚Original amerikan. Extended Basic‘ Moduls 
(elektrisch/mechanisch einwandfreier Zustand!!!) 


32k-RAM-Erweiterung zum seitlichen Anstecken an den Bus, im Kunststoff- 
gehäuse 190 x 110 x 60 mm, der Bus wird nach rechts durchgeschleift; 
mit 5V Steckernetzteil 


32k-RAM-Erweiterung, jedoch mit zusätzlichem Centronic-Interface 
nach hinten herausgeführt; Direktanschluß an PP-A4 


128k-RAM-Erweiterung (Ausführung wie 32k) mit Centronic-Interface 
Centronic-Interface im Gehäuse der 32k-RAM-Erweiterung 


4-Farben-Printer-Plotter PP-A4, Centronic-Schnittstelle, DIN-A4 Format, 
Direktanschluß an 32k-RAM 


Slim-Line-Laufwerk 5,25', 500kByte-DS/DD 

Einbausatz für 2 Laufwerke in Original-I1-Box, mit Manual 
DISC-Steuerkarte (CorComp), DS/DD, bis zu 4 Laufwerke anschließbar 
Anschlußkabel PP-A4 an 32K-RAM 


QUICK-DISC-FI.OPPY (im Gehäuse), zum Direktanschluß an T1-99/4A, mit 128kKByte — DS, 


für 2,8’ Disketten, mit Steckernetzteil 


Preise in DM/Stück inkl. Mwst. 
Technische Änderungen vorbehalten 
Versand gegen Nachnahme oder Vorauskasse. 






NEUE PRODUKTE FÜR TI-99/4A 


albs-Alltronic G. Schmidt - 
Tel. 07041/2747 . Telex 7263738 albs 


T1-99/4 A 


429,— 
429,— 
799,— 


Joystickinterface + 2 Joysticks 
Quickshot II 95,— 
Cassettenrecorderkabel 29,— 
Extended Basic (Orig. TI) 259,— 
Ext. Basic (dt. Nachbau) 239,— 
Extended Basic II Plus 299, — 
Mini Memory 289,— 
Editor/Assembler 

(32 K notwendig) 
TI-Writer (32 K notw.) 
Multiplan (32 K notw.) 
Terminal Emulator II 
Speech Editor 99,— 
Connect four, Yahtzee je 29,— 
Attack, Chisholm, Trail, Othello, 
Tombstone City, 

TI-Invaders je 39,— 
Parsec, Alpiner, Indoor, Soccer, 
Car Wars je 49, — 
Fathom, Microsurgeon, Moon- 
mine, Hopper, Bigfoot, 

Statistik je 59, — 
Espial, Defender, Dig Dug, 
Tunnels of Doom, Star 

Trek je 69, -- 
Datenverwalter + Analyse 79,— 
Moon Patrol, Jungle Hunt, Hs. 
Pacman, Donkey Kong, 


1200, — 
1698, — 
299,— 175,— 
299,— 
299,— 


95,— 


359,— 


1299, — 
1519,— 
1819, — 
1279,— 


899, — 
189, — 


239,- 
125, — 


8fach 225,-- 


579,-- 
65,— 


Buck Rogers, Burgertime, 
Congo Bongo, Return to Pirate’s 
Isle, Treasure Isle, Adventure- 


modul 


Video Chess, Moon- 


sweeper 
Popeye 
Miner 2049 


BÜCHER 


Editor/Assembler Handbuch 


dt. 


Extended Basic Handb. dt. 48, — 
TI-Basic & Extend. Basic 


Alle Preise inkl. MWSt. zuz. Versandkostenpau- 
DM 1.000,-/darüber): 
Vorauskasse (DM 8,-/20,-), Nachnahme (DM 
11,20/23,20), Ausland (DM 18,-/30,-. Versand 
nur gegen Vorauskasse oder per NN; Ausland nur 
Vorauskasse. Gesamtpreisliste gegen Freiumschlag. 


schale 


(Warenwert 


mit deutschem Handbuch 
mit deutschem Handbuch 


mit deutschem Handbuch für 


Mini Memory dt. 
je 75,— 


je 79,— 
je 89, — 
99,— 


WARE 


Superbasic, Exbasic II + Painter, 
Extended Basıc Compiler, Gra- 
phicmaster, 3-D-World, Forth, 
Apesoft-Programme, TI-Text, 


98,— 


48,—- TI-Datei, Skat ... 


bis 


CSV RIEGERT 


DM 


DM 


DM 


DM 


DM 
DM 
DM 


DM 
DM 
DM 
DM 
DM 


DM 


199,90 


299,- 


98,- 


70,- 


295,— 


395,— 
595,— 
188,— 


699,— 
498,— 
95,- 
635,— 
68,— 


598,— 


Postfach 1130 - 7136 Ötisheim 


Mini Memory Spezial dt. 
Assemblerhandbuch für das 


TI-99/4A intern in dt. (Betriebs- 
system, GPL, ROM ...) 


DISKETTEN- UND 
CASSETTENSOFT- 


Schloßhofstr. 5, 7324 Rechberghausen, 


Wir lassen den TI-USER nicht im Stich! 


Tel. (0 71 61) 5 28 89 


Die neue Ti-Peripherie von ATRONIC 


e Expansion System 
Die kleinen Erweiterungen 


Schnittstelle 


@ CPS 99: Das kompakte System! 
Diskontroller (90—360 KByte je 
Laufwerk) 1—2 Laufwerke einsetzbar. 
32 KByte RAM, 2 x RS 232—1 x parallel 


Weitere Information erhalten Sıe 
bei jedem guten TI-Händler oder direkt von: 


mit der großen Leistung 

* 32 KByte RAM 

32 KByte RAM + 
Centronics-Interface 

» Centronics-Interface 


alONIC 


Meiendorfer Weg 7 
2000 Hamburg 73 
Tel. 0 40 / 6 78 93 08-09 








Alle RAM-Erweiterungen in hochwertiger C-MOS5-Technologie! 


